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FOR 
1.0 
2.0 
4.1 
7.0 
FOR 


QUICK LOOK-UP OPERATING INSTRUCTIONS 


A QUICK REFERENCE, LOOK UP THE FOLLOWING SECTIONS: 
ABSTRACT 


REQUIREMENTS 
LOADING AND OPERATOR ACTION 
SWITCH OPTIONS 


A MORE COMPLETE EXPLANATION REFER TO THE TABLE OF 


CONTENTS BELOW AND THE FOLLOWING DOCUMENT. 


TABLE OF CONTENTS 
ABSTRACT 
REQUIREMENTS 
EQUIPMENT 
PRELIMINARY PROGRAMS 
EXECUTION TIME 


STARTING ADDRESS 


PROGRAM CONTROL MODES & OPERATOR ACTION 
PAPER TAPE 

RKDP DUMP MODE 

RKDP CHAIN MODE 

ACT11 


DRIVE SELECTION 
DRIVE-LESS TEST 
SWITCH OPTIONS 

SCOPE LOOPS 


PROGRAM STRUCTURE 
SET-UP PHASE 
DRIVE DEPENDENT CONTROLLER TESTS 


ERROR REPORTING 
ERROR INTERPRETATION 


HANDLERS AND COMMON ROUTINES 
TRAP HANDLER 

SCOPE HANDLER : 
ERROR HANDLER 

CONTROL RESET ROUTINE 
CONTROL READY ROUTINE 

DRIVE RESET ROUTINE 

TIME DELAY ROUTINE 

WAIT FOR INTERRUPT ROUTINE 
OTHER ROUTINES 

TTY HANDLER (1/0), ERROR TYPEOUT ROUTINE 
POWER DOWN/POWER UP ROUTINE 


UNEXPECTED TIMEOUTS & RK11 INTERRUPTS 
QUICK VERYFYING MODE 
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SEQ 0002 
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1.0 


2.0 
2.1 


fut 


2.3 


3.0 


4.0 


ABSTRACT 


THE RK11 LOGIC TESTS CONSIST OF A SERIES OF TESTS 
AIMED AT CHECKING THE BASIC LOGIC OF THE RK11 
CONTROLLER. THIS PROGRAM IS THE SECOND PART OF THE 
TWO-PART RK11 LOGIC TESTS. IT SHOULD BE NOTED THAT 
LOGIC TEST I AND LOGIC TEST II TOGETHER CONSTITUTE 
A COMPLETE PROGRAM AND BOTH OF THEM SHOULD BE RUN. 


WHEN USED IN CONJUNCTION WITH A DRIVE IT IS CAPABLE 
OF DETECTING FAULTS IN THE DRIVE ALSO. 


USED CORRECTLY THIS PROGRAM CAN BE AN EFFECTIVE 
ANALYTIC AND DIAGNOSTIC TOOL. 


REQUIREMENTS 

EQUIPMENT 

A. PDP11 WITH CONSOLE TELETYPE. 

B. 8K OF MEMORY 

C. RK11 OR RKV11 CONTROLLER 

D. 1-8 RKOS OR RKOSF DRIVES OR THE RKOS SIMULATOR 
(DRIVE TYPES MAY BE MIXED) 

PRELIMINARY PROGRAMS 

RK11 BASIC LOGIC TEST i (MD-11-DZRKJ) 

EXECUTION TIME 

ERROR FREE FIRST PASS ON PDP11/20 WITH CORE MEMORY 


TAKES APPROXIMATELY TWO MINUTES. CONSIDERABLY LESS 
FOR FASTER MACHINES OR MEMORIES. 


STARTING ADDRESS 


200 FCR ANY MODE OF OPERATION. NORMAL START UP WITH 
ALL SWITCHES DOWN. 


PROGRAM CONTROL MODES & OPERATOR ACTION 


PAPER TAPE LOADING 
RKDP DUMP MODE 
RKDP CHAIN MODE 
ACT11 


SEQ 0003 
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4.1.5 


4.1.6 


PAPER TAPE LOADING 


LOAD PROGRAM INTO MEMORY USING STANDARD PROCEDURE 
FOR .ABS TAPES. 


MAKE SURE THAT THE DRIVES TO BE CHECKED ARE LOADED 
WITH DISKS AND ARE IN ‘RUN’. ‘WRT ENABLE’ THEM. 
CHECK THAT ‘WRT PROT" LIGHT ON THESE DRIVES IS OFF. 
PUT DRIVES THAT ARE NOT TO BE TESTED ON ‘LOAD’. 


LOAD ADDRESS 200 


SET SWITCHES IF DESIRED (SEE SEC 7.0) IF TESTING ON 
SIMULATOR PUT SW<10> UP. 


PRESS START. 


THE PROGRAM IDENTIFIES ITSELF (NAME,MAINDEC NO), 
THEN THE FOLLOWING QUESTION IS ASKED: 


DRIVES TO BE TESTED? 


THE USER SHOULD TYPE IN THE DRIVE NUMBERS THAT ARE 

IN ‘"RUN* AND TO BE TESTED. CARRIAGE RETURN SHOULD 

TERMINATE THE STRING. IF AN RK-O5F IS TO BE TESTED, 

TYPE THE SUFFIX ‘F* WITH THE FIRST DRIVE OF THE PAIR. 
FOR — IF DRIVES 2 AND 3 ARE ON AN RK-O5F, TY?E 
ONLY 2F. 


EXMP: DRIVES TO BE TESTED? 0,1,2<CR> 
THE DRIVES DO NOT HAVE TO BE IN LOGICAL ORDER. 


EXMP: DRIVES TO BE TESTED? 2,4<CR> 


IF ANY ONE DRIVE IS TO BE TESTED, TYPE IN THAT 
NUMBER. IT DOES NOT HAVE TO BE DRIVE 0. 


THUS A NORMAL SEQUENCE WITH DRIVES 0,1 WOULD BE: 


RK11 BASIC LOGIC TEST 2 
MAINDEC-11-CZRKKF 
DRIVES TO BE TESTED? 0,1<CR> 


THERE IS A ‘'RUBOUT’’ FEATURE WHICH ALLOWS RUBBING OUT 

ANY NUMBER OF CHARACTERS THAT WERE TYPED IN WRONG. 
Hag Tm ge OUT CHARACTERS ARE ECHOED BACK WITHIN 
L . 


" U" DELETES THE ENTIRE LINE 


E—E 1 
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4.1.7 If REPLY TO ANY OF THE ABOVE QUESTION IS IN A_ WRONG 


FORMAT (EX: 012<CR>;0,8<CR>; 0,A<CR>; M<CR> ETC), IT 
1S AUTOMATICALLY REJECTED, A °'??"' IS PRINTED OUT; 


THE CORRECT ANSWER CAN NOW BE RETYPED AGAIN. 
4.1.8 THE DRIVE NUMBER BEING TESTED OUT IS PRINTED: 


DRIVE N ;N=0,1...7 
IF THE DRIVE IS AN RK-O5F, AN F IS APPENDED 


AT THE END OF A PASS THE FOLLOWING TYPE-OUT OCCURS 
END PASS # X 


WHERE X= PASS NUMBER (1,2,5---), CONTROL IS PASSED 
TO THE BEGINNING OF THE PROGRAM AND RE-EXECUTION 
BEGINS. NO QUESTIONS ARE TO BE ANSWERED AGAIN. 


4.1.9 ERROR FREE PASSES OF THE PROGRAM APPEAR AS SHOWN 
BELOW. 


RK11 BASIC LOGIC TEST 2 
MAINDEC-11-CZRKKF 
DRIVES TO BE TESTED? 
0,1<CR> 

DRIVE 0 

DRIVE 1 

END PASS # 1 


0 
DRIVE 1 
END PASS # 2 


4.2 RKDP DUMP MODE 
4.2.1 THE PROGRAM IS LOADED INTO THE MEMORY BY THE RKDP 
MONITOR 


4.2.2 START AS NORMALLY USING SA 200 

4.2.35 THE PROGRAM IDENTIFIES ITSELF (NAME,MAINDEC NO.). 
ON FINDING OUT THAT THE LOADING WAS BY RKDP (DUMP 
MODE), THE FOLLOWING MESSAGE APPEARS: 


"TO TEST DRIVE "N* HALT PROGRAM, REMOVE RKDP PACK AND REPLACE IT 
WITH A WORK PACK, CLEAR LOCATION 40, AND RESTART PROGRAM' 


IF DRIVE *N' IS TO BE TESTED, THE RKDP PACK ON THAT 


G 1 
MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2 MACY11 30A(1052) 21-FEB-78 08:58 PAGE 7 
CZRKKF .P11 21-FEB-78 08:51 SEQ 0006 


DRIVE SHOULD BE REPLACED BY ANOTHER PACK, THE DRIVE 
SHOULD BE PUT ON ‘WRT ENABL" (BECAUSE RKDP WRITE 
PROTECTS THE DRIVE). 


IF DRIVE ‘N* IS NOT TO BE CHECKED, THEN THE MESSAGE 
SHOULD BE IGNORED. 


AFTER THIS, THE SEQUENCE OF QUESTIONING IS AS 
EXPLAINED IN SEC 4.1.5. 


4.3 RKDP CHAIN MODE 
THE PROGRAM IS CHAIN-LOADED FROM THE RKDP PACK ON 
DRIVE ‘N*. AFTER THE PROGRAM IDENTIFIES ITSELF THE 
FOLLOWING PRINTOUT OCCURS. 
"DRIVE "N* NOT TESTED" 


THERE IS NO OPERATOR INTERVENTION REQUIRED. THE 
PROGRAM FINDS OUT THE NUMBER OF DRIVES PRESENT. 


4.4 ACT11 MODE 


THE PROGRAM IS LOADED BY THE ACT11 MONITOR. ON 
STARTING, IDENTIFIES ITSELF, ASCERTAINS THE NUMBER 
OF DRIVES AND PROCEEDS WITH THE EXECUTION OF THE 
TESTS AS BEFORE. 


wn 
© 


DRIVE SELECTION 


IF ANY PARTICULAR DRIVE IS TO BE SELECTED FOR 
TESTING, PUT THAT DRIVE ON 'RUN‘, ‘WRITE ENABLE'; 
PUT REST OF THE DRIVES ON ‘LOAD’, ‘WRITE LOCK' AND 
IN REPLY TO THE QUES- TIONVES TO BE TESTED?) 

eg THE DRIVE NUMBER FOLLOWED BY CR. SEE SEC 


6.0 DRIVE-LESS TEST 


USE RK11 BASIC LOGIC TEST I, WHICH IS ACTUALLY THE 
FIRST PART OF THE TWO-PART RK11 BASIC LOGIC TESTS. 
SEE SEC 1.0. 2.2. 


7.0 SWITCH OPTIONS 


IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR (I.E. AN 11/34) 
THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER IS 

NOT PRESENT AND WILL USE A ‘SOFTWARE* SWITCH REGISTER. THE 
"SOFTWARE’ SWITCH REGISTER IS LOCATED AT LOCATION 176 (8). THE 
SETTINGS OF THE ‘SOFTWARE’ SWITCHES ARE CONTROLLED THROUGH A KEYBOARD 


ROUTINE WHICH IS CALLED BY TYPING A ‘CONTROL G‘'. THE PROGRAM WILL 
RECOGNIZE THE ‘CONTROL G* WHENEVER THE PROGRAM ENTERS 
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vel 


Fed 


ico 


7.4 


THE SCOPE ROUTINE OR BEGINS A NEW TEST. THE 
"SOFTWARE SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE 
TO THE PROMPT FROM THE SWITCH ENTRY ROUTINE: 


*SWR = NNNNNN NEW =" 


EACH TIME SWITCH SETTING ARE ENTERED, THE ENTIRE SWITCH REGISTER 
IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT REQUIRED., ‘RUBOUT’' AND 
"CONTROL U* FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS 

DURING SWITCH ENTRY. 


ON PROCESSORS WITH HARDWARE SWITCH REGISTERS, THE ‘SOFTWARE’ SWITCH 
REGISTER MAY BE USED. IF THE PROGRAM FINDS ALL 16 SWITCHES IN THE 
"UP" POSITION, ALL SWITCH REGISTER REFERENCES WILL BE TO THE 

"SOF TWARE' REGISTER AND THE PROCEDURES DESCRIBED ABOVE MUST 

BE FOLLOWED. 


SW<15>=1 HALT ON ERROR 

SW<14>=1 LOOP ON TEST 

SW<13>=1 INHIBIT ERROR PRINTOUTS 

SW<12>=1 CYCLE ON ERROR TO THE PREVIOUS 


"SCOPE* STATEMENT 


SW<11>=1 INHIBIT ITERATIONS 

SW<10>=1 TESTING ON SIMULATOR 

SW<09>=1 LOOP ON SPECIFIC ERROR 

SW<08>=1 LOOP ON TEST AS PER SW<07:00> 

SW<06>=1 DROP THE DRIVE AFTER MAXIMUM 
ALLOWABLE NUMBER OF ERRORS OCCUR 

SW<15> 


THE PROGRAM HALTS ON ENCOUNTERING AN ERROR, AFTER 
TYPING OUT THE ERROR MESSAGE AND PERTINENT 
INFORMATION. PRESSING ‘"CONTINUE’’ RESTORES NORMAL 
OPERATION OF THE PROGRAM. 


SW<14> 


THE PROGRAM LOOPS ON THE SUBTEST THAT IS _ BEING 
EXECUTED WHEN THE SWITCH IS PUT ON. THIS SWITCH IS 
USED NORMALLY ALONG SW 15. SEE SEC 8.0. 


SW <13> 


THIS SWITCH INHIBITS ALL ERROR MESSAGES. NORMALLY 
USED WHEN LOOPING ON TEST (SW 14) OR LOOPING ON 
ERROR (SW 9). 


SW <12> 


THIS SWITCH ALLOWS THE PORGRAM TO CYCLE FROM THE 
POINT OF ERROR TO THE PREVIOUS SCOPE STATEMENT. 
NOTE THAT IN DOING SO ANY INITIALIZATION BEING DONE 
AT THE BEGINING OF THE SUBTEST WILL BE DONE AGAIN 
AND AGAIN. SEE SEC 8.0 FOR DIFFERENT SCOPE LOOPS 


SEQ 0007 
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7.5 


7.6 


7.7 


7.8 


’.9 


8.0 


AVAILABLE. 
SW <11> 


EACH SUBTEST WILL BE EXECUTED ONLY ONCE. NORMALLY 
AFTHE FIRST PASS, EACH SUBTEST IS ITERATED A 
NUMBER OF TIMES (USUALLY 50, 5 IN SOME CASES). 
SETTING THIS SWITCH INHIBITS ITERATIONS, SO THAT 
QUICK PASSES CAN BE MADE. 


SW <10> 


THIS SWITCH WHEN SET INDICATES THAT TESTING IS BEING 
DONE ON A_ SIMULATOR. THE SWITCH SHOULD BE PUT UP 
BEFORE START- ING THE PkKOGRAM. NOTE THAT RK11IC IS 
NOT COMPATIBLE WITH THE SIMULATOR. 


SW <09> 


THIS SWITCH PROVIDES THE TIGHTEST POSSIBLE SCOPE 
LOOP. NOTE THATKE SW12 THE INITIALIZATION OF 
PARAMETERS AT THE BEGINNING OF THE SUBTEST MAY NOT 
BE DONE IN THIS CASE. THIS SWITCH IS HELPFUL WHEN A 
PARTICULAR PART OF A SUBTEST IS BEING REPEATED USING 
DIFFERENT PARAMETERS AND YOU WANT TO SCOPE ON THE 
PARAMETER IN ERROR. (EXAMPLE: RKDA IS BEING WRITTEN 
AND READ BACK WITH COUNT PATTERNS FROM 1 TO 177777. 
PATTERN 561 IS GIVING ERROR, YOU MIGHT NOT WANT TO 
GO THROUGH THE 560 PATTERNS BEFORE HITTING ERROR ON 
THE 561TH PATTERN. IN THIS CASE SW 9 WILL GIVE YOU 
“ ot LOOP ON THE 561TH PATTERN ONLY 

W <08> 


THIS SWITCH IS USED TO SELECT A PARTICULAR TEST (AS 
PER SW<00-07>) FOR EXECUTION AND SUBSEQUENT LOOPING. 
THUS IF TEST 15 IS TO BE SELECTED THE SWITCH SETTING 
WOULD BE 000415. IT SHOULD BE NOTED THAT BEFORE 
SELECTING TEST 15, ALL THE PREVIOUS TESTS (1-14) 
WILL BE EXECUTED. 


SW<06> 


THIS SWITCH ALLOWS THE PROGRAM TO DROP A DRIVE FROM 
THE SELECTION LIST AND TESTING AFTER MAXIMUM 
ALLOWABLE ERROR COUNT (TOTAL NUMBER OF ERRORS) ON 
THAT DRIVE IS EXCEEDED. THE MAXIMUM ALLOWABLE ERROR 
COUNT IS 5, AFTER 5 ERRRORS HAVE OCCURED DRIVE 

co, AND A MESSAGE (DRIVE # XXX DROPPED) IS 


SCOPE LOOPS 


> 
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THERE ARE THREE KINDS OF SCOPE LOOPS AVAILABLE 
1. SW14: LOOPING IS DONE FOR THE ENTIRE SUB-TEST 


2. SW1i2: LOOPING IS DONE FROM THE POINT OF ERROR 
BACK TO THE PREVIOUS ‘SCOPE* STATEMENT. 


3. SWO9: PROVIDE THE TIGHTEST POSSIBLE SCOPE LOOP 


SEE SEC. 7.7 

EXAMPLE : 
TST1: SCOPE 

INITIALIZATION 

ERROR 1 

ERROR 2 

ERROR 3 

ERROR 4 
TST2: SCOPE 


THE SEQUENCE OF LOOPING FOR DIFFERENT CASES IS 
EXPLAINED BELOW. NOTE THAT ‘TST1° AND ‘TST2° ARE 
TAGS WHICH DEFINE THE BOUNDARY OF A TEST, (CIN THIS 
CASE TEST 1). TEST 1 STARTS AT ‘TST1° AND ENDS JUST 
BEFORE ‘TST2’. 


IN THE ILLUSTRATION BELOW --> INDICATES THE POINT 
FROM WHERE RETURN IS MADE AND LOOPING IS DONE. 


1. ERROR 2 OCCURS, SW 14 SET. 
TST1..ERROR 2..1ST2-->TST1..ERROR 2..1ST2-->TST1... 
2. ERROR 2 OCCURS, SW 12 SET. 
TST1...ERROR 2-->TST1...ERROR2-->TST1... 
3. ERROR 2,3; SW 14 SET. 


TST1..ERROR 2..ERROR 3..TST2-->TST1..ERROR 2..ERROR 
5..1ST2-=>TST1... 


4. ERROR 2,3; SW 12 SET. 
TST1...ERROR 2-->TST1...ERROR 2-->TST1.... 
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9.0 


9.1 


NOTE THAT LOOPING IS DONE FROM THE VERY FIRST ERROR 
ENCOUNTERED. THE MORE BASIC AND ERROR THE EARLIER 
IT OCCURS AND IS DETECTED AND SHOULD BE FIXED. 


IN THE ABOVE EXAMPLE NO PART OF THE SUB-TEST IS 
BEING REPEASING DIFFERENT PARAMETERS, HENCE IT 

SO HAPPENS THAT SW 9 AND 12 GIVE THE SAME KIND OF 
LOOPS. THE EXAMPLE BELOW WILL DEMONSTRATE THE 
DIFFERENCE BETWEEN SW 9 AND 12. 


TST1: SCOPE 
INITIALIZATION 
ERROR 1 
MOV #1$,$LPERR :"$SLPERR' CONTAINS 
= THE ADDRESS TO LOOP 
“BACK ON ERROR- Sw 9 
1$: : aan 
: I 
ER I N REPETITIONS 
TST2: SCOPE — 


1. SW 12 SET, ERROR 2 OCCURS DURING’ K.TH 
REPETITIONS 

TST1..1,2...K.ERROR 2-->TST1..1,2...K. ERROR 2-->TST1.. 
2. SW 9 SET, ERROR 2 OCCURS DURING K.TH REPETITION 
1$..K..ERROR 2-->1$..K..ERROR 2-->1$... 


PROGRAM STRUCTURE 
THERE ARE THREE DISTINCT PARTS OF THE PROGRAM. 


SET-UP PHASE 
DRIVE-DEPENDENT CONTROLLER TESTS 


SET-UP PHASE 


SETTING UP OF INITIAL POINTERS, VECTORS, TABLES IS 
DONE IN THIS PART. IN THIS SECTION THE DECISION IS 
MADE ABOUT THE PROGRAM MODE-PAPER TAPE, RKDP DUMP, 
CHAIN OR ACT11. IF IN A_ NON-INTERVENTION MODE 
(CHAIN, ACT11) NUMBER OF DRIVES AND THE TYPE OF 
CONTROLLER IS FOUND OUT. FLAGS ARE SET TO INDICATE 
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SEQ 0010 
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9.2 


10.0 


WHICH DRIVES ARE TO BE TESTED, ETC. 
DRIVE DEPENDENT CONTROLLER TESTS 


THIS SECTION FORMS A MAJOR PART OF THE PROGRAM 
WHEREIN MOST OF THE CONTROLLER IS CHECKED. 


JUST BEFORE ENTERING THIS SECTION THE PROGRAM FINDS 
OUT WHICH DRIVE IS TO BE CHECKED. IF IN RKDP CHAIN 
MODE, DRIVE ‘N* IF PRESENT, IS SKIPPED AND THE NEXT 
AVAILABLE DRIVE IS SELECTED. 


THE DRIVE NUMBER BEING TESTED IS PRINTED OUT: 
DRIVE N :N=0,1,2...7 


THE TESTING IS DONE IN A LOGICAL HIERCHY, SIMPLER 
THINGS FIRST, THEN MORE COMPLEX AND SO ON. 


IN ONE OF THE TESTS THE ENTIRE DISK PACK IS 
FORMATTED, CHECKS ARE MADE FOR ERROR CONDITIONS. 
THE FIRST WORD OF EVERY SECTOR IS WRITTEN AS A 
PSUEDO-HEADER, REFLECTING THE ABSOLUTE ADDRESS OF 
THAT SECTOR (DRIVE #, CYLINDER #, SURFACE #, SECTOR 
#). EXAMPLE: THE PSUEDO-HEADER FOR SECTOR 5, 
SURFACE 0, CYLINDER 20, DRIVE 0 WOULD BE 001005. 


IN THE NEXT TEST THE HEADERS FROM THE ENTIRE PACK 
ARE READ AND CHECKED FOR CORRECTNESS. IN A 
ak TEST ALL THE PSUEDO-HEADERS ARE READ AND 
V . 


ALL THE FUNCTIONS ARE CHECKED OUT. ‘SEEK’ IS 
CHECKED IN THE THREE DIFFERENT VELOCITY MODES (HIGH, 
MEDIUM, LOW). VARIOUS ERRORS LIKE ‘NXD', ‘NXC', 
ETC. ARE SIMULATED AND CHECKED. 


HARDWARE POGIC IS CHECKED USING ALL THE DRIVES 
THAT HAVE BEEN INDICATED. 


AT THE END OF THIS SECTION, A CHECK IS MADE IF ALL 
INDICATED DRIVES HAVE BEEN TESTED. IF NOT, CONTROL 
IS TRANSFERRED TO THE BEGINNING OF THIS SECTION. 


THUS ONE PASS OF THE PROGRAM INVOLVES DOING 

1. SUBTEST #1 ONCE 

2. DRIVE-DEPENDENT TESTS FOR ALL THE SELECTED 
DRIVES. ; 

ERROR REPORTING 

THE ERROR TABLE STARTING AT S$ERRTB CONTAINS 


INFORMATION PERTAINING TO EVERY ERROR THAT CAN 
OCCUR. EACH ITEM IN THE TABLE CONSISTS OF FOUR 


SEQ 0011 
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ENTRIES. 


A. EM - THIS IS A POINTER TO THE ERROR MESSAGE T0 
BE TYPED OUT WHEN THE ERROR OCCURS. 


B. DH - THIS IS A POINTER TO THE DATA HEADER TO BE 
TYPED OUT. 


C. DT ~ THIS IS A POINTER TO THE DATA WHICH IS TO 
BE TYPED TYPED OUT UNDER THE HEADERS. 


D. © - THIS IS A TERMINATOR SIGNIFYING THE END OF 
THE ITEM. 


THE ERROR CALL IS AN EMi INSTRUCTION WITH ITS LOWER 
BYTE ENCODED TO INDICATE THE ERROR NUMBER. THUS 


OR 1° WOULD BE (EMT+1) IE 104001. 


12.0 


EVERY ERROR CORRESPONDS TO AN ITEM IN THE ERROR 
TABLE. THUS “ERROR 14°° WOULD CORRESPOND TO ITEM 14. 
AS FAR AS POSSIBLE, THE ERROR MESSAGES HAVE BEEN 
KEPT SHORT, BUT CLARITY IS NOT SACRIFICED FOR 
BREVITY. INSPITE OF THIS, IF THE USER FINDS A NEED, 
HE CAN LOOK UP THE ENTIRE ERROR MESSAGE IN THE ERROR 
ITEMS TABLE FOUND IN THE BEGINNING OF THE LISTINGS. 
THUS FOR “‘ERROR 14°, “ITEM 14°° IN THE ITEM TABLE CAN 
BE LOOKED UP. WHEN THE ERROR INSTRUCTION IS 
EXECUTED A TRAP OCCURS TO THE ERROR HA LOCATED 

4 _ WHICH PROCESSES THE ERROR CALL. SEE SEC 


ERROR INTERPRETATION 


WHENEVER AN ERROR MESSAGE IS PRINTED OUT, ALL 
REGISTERS AND OTHER DATA PERTAINING TO THE ERROR ARE 
ALSO GIVEN. RKDS, RKER...RKBA INDICATE THE CONTENTS 
OF THE CORRESPONDING REGISTERS AT THE TIME OF ERROR. 


EVERY ERROR MESSAGE CONTAINS A PC. THIS PC 
INDICATES THE POSITION IN PROGRAM WHERE THE ERROR 
CALL IS LOCATED. THE ERROR MESSAGE, BECAUSE OF 
PRACTICAL CONSIDERATIONS IS MADE SHORT AND 
MEANINGFUL. THE USER IS ADVTO LOOK UP THE PC 

IN THE PROGRAM LISTING, WHERE HE WILL FIND MORE 
INFORMATION ABOUT THE ERROR. IN MANY INSTANCES, A 
SINGLE FAULT WILL GIVE RISE TO MORE THAN ONE ERROR 
REPORT. A LITTLE ODELIBERATION AND CAREFUL 
EXAMINATION OF THE DATA GIVEN WILL BE CERTAINLY VERY 
HELPFUL IN PINPOINTING THE FAULT. A BRIEF 
EXPLANATION OF WHAT IS BEING CHECKED IN THE SUBTEST 
IS GIVEN AT THE BEGINNING OF EVERY SUBTEST. ALL THE 
NUMBERS GIVEN WITH ERROR MESSAGES ARE IN OCTAL. 


HANDLERS AND COMMON ROUTINES 


SEQ 0012 
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THE COMMOSED ROUTINES USED IN THE PROGRAM ARE 
CALLED IN TWO WAYS. 


A. AS A SUBROUTINE THROUGH "JSR* CALL 
B. THROUGH A *TRAP* HANDLER 
TRAP HANDLER 


MANY COMMONLY USED ROUTINES IN THE PROGRAM ARE 
CALLED USING THE TRAP INSTRUCTION AND THE ‘TRAP* 
HANDLER. THE LOWER BYTE OF THE TRAP INSTRUCTION IS 
ENCODED DIFFERENTLY FOR ODIFFERENCT ROUTINES. THE 
TRAP HANDLER IS LOCATED AT ‘STRAP’. WHEN A CALL FOR 
A ROUTINE IS EXE°UTED, A TRAP OCCURS TO THE HANDLER 
ARAP*. THE HANDLER PICKS UP THE LOWER BYTE OF 

THE “CALL INSTRUCTION’ AND USES IT TO FORM THE 
Hoth yy ADDRESS OF THE ROUTINE TO GO TO FOR 
S , 


SCOPE HANDLER 


THE "IOT' TRAP IS USED BY THE ‘SCOPE’ STATEMENT. 
WHEN ‘SCOPE IS EXECUTED, AN IOT TRAP OCCURS TO 
MEMORY LOCATION 'S$SCOPE*. THE SCOPE HANDLER STARTS 
AT $SCOPE. DEPENDING ON THE SWITCH SETTINGS THE 
HANDLER DECIDES TO LOOP ON TEXT, INHIBIT ITERATIONS 
ETC. THERE ARE CERTAIN POINTERS AND FLAGS WHICH ARE 
ADJUSTED. THUS, IT IS NOT ADVISABLE START THE 
PROGRAM AT ANY GIVEN LOCATION SINCE THE VARIOUS 
POINTERS AND FLAGS MAY NOT BE CORRECTLY ADJUSTED. 


ERROR HANDLER 


AN EMT TRAP INSTRUCTION IS USED BY THE ERROR CALL. 
THE LOWER BYTE IS ENCODED TO GIVE DIFFERENT ERROR 
CALLS. (EX: ERROR 1 = 104000+1; ERROR 16 = 
104000+16). WHEN THE ERROR STATEMENT IS EXECUTED, A 
TRAP OCCURS TO MEMORY LOCATION ‘SERROR'. THE ERROR 
HANDLER IS LOCATED AT ‘SERROR’. THE HANDLER FORMS 
THE POINTER TO ERROR TABLE, WHICH IS USED IF AN 
ERROR MESSAGE IS TO BE TYPED QUEPENDING ON THE 

SWITCH SETTINGS, A DECISION ABOUT HALTING ON ERROR, 
INHIBITING TYPEOUT, LOOPING ON ERROR ETC. IS MADE. 
IF AN ERROR MESSAGE IS TO BE TYPED OUT AN EXIT IS 
Tatkerte="" ERROR MESSAGE TYPEOQUT ROUTINE LOCATED AT 


CONTROL RESET ROUTINE 
THE CALL FOR THIS ROUTINE IS “'CNT.RESET’’ AND IS_ AN 


ENCODED ‘TRAP’ INSTRUCTION. WHEN ‘‘CNT.RESET’’ IS 
EXECUTED THE CONTROL RESET ROUTINE STARTING AT 


SEQ 0013 
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12.5 


12.6 


12.7 


12.8 


"CN.RST’’ IS ENTERED. A CONTROL RESET IS ISSUED 

THE PROGRAM WAITS TILL THE CONTROL READY SETS, ON 
WHICH THE ROUTINE IS EXITED. IF CONTROL READY DOES 
NOT SET WITHIN A CERTAIN TIME AN ERROR IS REPORTED. 
THE PC TYPED OUT IS THE LOCATION WHERE THE 
“CNT.RESET’’ CALL IS LOCATED. THE WAITING TIME IS 
ET FOR 11/20 AND 560 US FOR 11/45 WITH BIPOLAR 
M Y. 


CONTROL READY ROUTINE 


THIS ROUTINE IS CALLED BY ‘“‘CNT.RDY’’ (AN ENCODED 
"TRAP* INSTRUCTION) AND IS LOCATED AT “‘CN.RDY'’. THE 
ROUTINE WAITS FOR THE CONTROL READY TO SET AND WHEN 
IT DOES, EXITS IF CONTROL READY DOES NOT SET 
WITHIN A SPECIFIED TIME AN ERROR MESSAGE IS GIVEN 


CNTRL RDY DIDN'T SET 
PC = XXXXXX RKCS = rYYYYY 


THE PC IS THE LOCATION AT WHICH THE ‘'CNT.RDY'’ CALL 
IS LOCATED. THE WAITING TIME IS 949 MS FOR 11/20 
AND 189 MS FOR 11/45 WITH BIPOLAR MEMORY. 


DRIVE RESET ROUTINE 


THE DRIVE - RESET ROUTINE IS LOCATED AT “‘DRESET’’ AND 
IS CALLED BY A ‘JSR’. IT ISSUES A DRIVE RESET AND 
WAITS FOR THE R/W/S RDY TO SET, ON WHICH THE ROUTINE 
IS EXITED. THE WAITING TIME IS 4959 MS FOR 11/20 
AND 991 MS FOR 11/45 WITH BIPOLAR MEMORY. 


TIME DELAY ROUTINE 


THIS ROUTINE PROVIDES A VARIABLE TIME DELAY. THE 
CALL IS DELAY ,N WHERE N=1 TO 177777 (OCTAL) TIME 
DELAY PROVIDED= 7.5 TIMES( X ) WN MICRO SECS FOR 
11/20, 1.5N US FOR 11/45 (N CONVERTED TO DECIMAL 
BEFORE COMPUTING DELAY) IF THE USER WANTS TO CHANGE 
THE DELAY AT ANY POINT IT CAN BE DONE BY SIMPLY 
CHANGING VARIABLE ‘N‘. 


WAIT FOR INTERRUPT ROUTINE 


THIS ROUTINE PROVIDES A VARIABLE TIME LIMIT DURING 
WHICH RK11 INTERRUPT MAY OCCUR. THE IS 

WAT.INT .N N=1 TO 1777777 # (OCTAL) 
WAITING TIME=7.5 TIMES( X ) N US FOR 11/20, 1.5N US 


FOR 11/45 UPON ENTERING THE ROUTINE CPU PRIORITY IS 
DROPPED SO THAT RK11 CAN INTERRUPT. 
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SEQ 0014 
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12.9 


13.0 


OTHER ROUTINES 


THERE ARE OTHER COMMONLY USED ROUTINES AS LISTED 
BELOW. 


STYPE: 

TYPE ROUTINE FOR TYPING OUT ASCII STRINGS. 
LOCATED AT ‘"STYPE*’ 

CALLED BY ‘‘TYPE"’ 


STYPOC: 

ROUTINE FOR TYPING OUT OCTAL NUMBERS. 
LOCATED AT “’SSYPOC*’ 

CALLED BY ‘‘TYPOC"’ 


STYPDS: 

ROUTINE FOR TYPING OUT DECIMAL NUMBERS. 
LOCATED AT ‘‘STYPDS*' 

CALLED BY ‘“*TYPDS*' 


SRDLIN: 

ROUTINE FOR INPUTTING ASCII STRINGS FROM TTY. 
LOCATED AT ‘’SRDLIN" 

CALLED BY ‘’RDLIN’ 


SERRTYP: 

ROUTINE FOR TYPING OUT ERROR MESSAGES. 
LOCATED AT SERRTYP 

CALLED BY “JSR SERRTYP** 


SPWRDN: 

ROUTINE FOR HANDLING POWER FAILURE. 
LOCATED AT S$PWRDN 

CALLED WHEN THERE IS A POWER FAILURE. 


SPWRUP: 

ROUTINE FOR HANDLING POWER UP AFTER A POWER FAIL. 
LOCATESPWRUP 

CALLED WHEN POWER RETURNS AFTER HAVING GONE DOWN. 


UNEXPECTED TIMEOUTS AND RK11 INTERRUPTS 


WHEN AN UNEXPECTED TIMEOUT OCCURS, THE PC AT WHICH 
TIME OUT OCCURED IS TYPED OUT AND THE PROGRAM HALTS. 
Fahl INTACT, IT CAN BE RESTARTED BY PRESSING 


IF AN UNEXPECTED RK11 INTERRUPT OCCURS THE PROGRAM 
TYPES OUT THE PC AT WHICH THE INTERRUPT CAME IN AND 
THEN HALTS. PRESSING CONTINUE WOULD RESTART THE 
PROGRAM FROM BEGINING. SW 9- LOOPING CAITY IS 
PROVIDED AS A TROUBLE SHOOTING AID. 


t ¢@ 
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QUICK VERIFYING MODE 


THE FIRST PASS OF THE PROGRAM IS A QUICK VERIFYING 
MODE. ALL THE TESTS ARE DONE ONLY ONCE, ON 
SUBSEQUENT PASSES THE TESTS ARE ITERATED (NORMALLY 
50 TIMES, 5 IN SOME CASES). THUS THE FIRST PASS 
TAKES A SHORTER TIME TO COMPLETE, WHEREAS SUBSEQUENT 
PASSES TAKE MORE TIME. 


-TITLE MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2 
s*COPYRIGHT (C) 1974,1977 

>*DIGITAL EQUIPMENT CORP. 

5 eave MASS. 01754 


!SPROGRAM BY JIM KAPADIA 


: aTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
5 PACE (MAINDEC-11-DZQAC-C3), JAN 19, 1977. 


: sPROGRAM REVISED BY TOM SAWYER, MARCH, 1976 
;*REVISED BY CHUCK HESS, AUGUST, 1976 
“SBTTL OPERATIONAL SWITCH SETTINGS 


SWITCH USE 

HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR TYPEQUTS 

CYCLE ON ERROR TO PREVIOUS ‘SCOPE’ STATEMENT 
INHIBIT ITERATIONS 

TESTING ON SIMULATOR 

LOOP ON ERROR 

LOOP ON TEST IN SWR<7:0> 

DROP THE DRIVE IF MORE THAN 5 ERRORS 


ee 


ee | 
wooo —-Mwlu 


Se Se Se Se Be Be Se Be Be Be Be Be 


aneeeeee-e#t *# # # *# 


FRA EAA EERE AAA A AAA AAA ARERR RARER ERASE 


;YOU ARE ADVISED TO READ THE DOCUMENT BEFORE USING THIS PROGRAM. 
;ON GETTING AN ERROR REFER TO THE LISTINGS AT THE PC POINTED 


SEQ 0016 


E 2 
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CZRKKF P11 21-FEB-78 08:51 GPERATIONAL SWITCH SETTINGS SEQ 0017 
894 ;OUT IN THE ERROR MESSAGE. ADJACENT ERROR MESSAGES IF FOLLOWED 
aaa : CAREFULLY COULD LEAD TO AN EASY PINPOINTING OF THE FAULT 
897 PAAR RRESRRRRASESELELESELESE ELAR ESSE SESE EEE EEE EEE E EEE SEES E EEE EEE SE 
a “SBTTL BASIC DEFINITIONS 
900 st*INITIAL ADDRESS OF THE STACK POINTER **#* 1100 ##* 

901 001100 STACK= 1100 

902 EQUIV EMT,ERROR ;:BASIC DEFINITION OF ERROR CALL 
os -EQUIV IOT,SCOPE ;;BASIC DEFINITION OF SCOPE CALL 
905 > *MISCELLANEOUS DEFINITIONS 

906 000011 HT= 11 ;;CODE FOR HORIZONTAL {AB 
907 000012 LF= 12 ;;CODE FOR LINE FEED 

908 000015 CR= 15 ;;CODE FOR CARRIAGE RETURN 
909 000200 CRLF= 200 ;;CODE FOR CARRIAGE RETURN-LINE FEED 
910 177776 PS= 177776 ;;PROCESSOR STATUS WORD 

911 -EQUIV PS,PSW 

912 177774 STKLMT= 177774 :;STACK LIMIT REGISTER 

913 177772 PIRQ= 177772 7 PROGRAM INTERRUPT REQUEST REGISTER 
914 177570 DSWR= 177570 ; HARDWARE SWITCH REGISTER 
oar 177570 DDISP= 177570 ;;HARDWARE DISPLAY REGISTER 
917 :*GENERAL PURPOSE REGISTER DEFINITIONS 

918 000000 RO= x0 : GENERAL REGISTER 

919 000001 R1= z1 :;GENERAL REGISTER 

920 000002 R2= %2 7 ;GENERAL REGISTER 

921 000003 R3= 23 >: GENERAL REGISTER 

922 000004 R4= 24 7 GENERAL REGISTER 

923 000005 R5= 25 7 ;GENERAL REGISTER 

924 000006 R6= x6 >: GENERAL REGISTER 

925 000007 R7= x7 7 :GENERAL REGISTER 

926 000006 SP= x6 ::STACK POINTER 

<4 000007 PC= 27 ; PROGRAM COUNTER 

929 s*PRIORITY LEVEL DEFINITIONS 

930 000000 PRO= 0 ;;PRIORITY LEVEL 0 

931 090040 PRi= 40 ssPRIORITY LEVEL 1 

932 000100 PR2= 100 : :PRIORITY LEVEL 2 

933 000140 PR3= 140 s PRIORITY LEVEL 3 

934 000200 PR4= 200 s PRIORITY LEVEL 4 

935 000240 PR5= 240 s;PRIORITY LEVEL 5 

936 000300 PR6= 300 > ;PRIORITY LEVEL 6 

a 000340 PR7= 340 : PRIORITY LEVEL 7 

939 3*°"SWITCH REGISTER'’ SWITCH DEFINITIONS 

940 100000 SW15= 100000 

941 040000 SW1i4= 40000 

942 020000 SW13= 20000 

943 010000 SWi2= 10000 

944 004000 SWi1= 4000 

945 002000 SW10= 2000 

946 001000 SwO9= 1000 

947 000400 SWO8= 400 

948 000200 SWO7= 200 


949 000160 SWO6= 100 
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000040 
000020 
000010 
000004 
000002 
000001 


100000 


006001 


000004 


000060 


. 
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BASIC D 


Sw05= 
SW04= 
Sw03= 
SWO2= 


wo 

i 

“ 

s+ 
ow 


TRAPVEC 
TKVEC= 


FFINITIONS 


SWO9,SW9 
SWO8, SW8 
SWO6, SW6 
SWO4 , SW4 
SWO3,SW3 
SWO2 , SW 
SWO1, SW 
SWOO, SWO 


BIT DEFINITIONS (BITOO TO B1T15) 
100000 


BITO9,BIT9 
B1T08,B1T8 
B1107,BIT7 
BIT06,BI1T6 
BIT05,B1T5 
BIT04.BIT4 
BIT03,B1T3 
BIT02,BI1T2 
B1701,B1T1 
BIT00,B1T0 


* aia TRAP VECTOR ADDRESSES 


=34 
60 


;;TIME OUT AND OTHER ERRORS 
::RESERVED AND ILLEGAL INSTRUCTIONS 


:; TRACE TRAP 

; :BREAKPOINT TRAP (BPT) 

>: INPUT/OUTPUT TRAP (IOT) **SCOPE** 
;;POWER FAIL 

: ;EMULATOR TRAP (EMT) **ERROR** 
::“"TRAP’’ TRAP 

>; TTY KEYBOARD VECTOR 
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000174 
000176 


000200 


000046 
000052 


000064 
000240 


000000 


000174 
000000 
000000 


000137 


000204 


000204 
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002636 
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BASIC DEFINITIONS 


64 


TPVEC= 


PIRQVEC=240 


- SBTTL 


.=0 
;*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘'.#2,HALT"’ 
>*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
:*LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


;; SOFTWARE DISPLAY REGISTER 
;; SOFTWARE SWITCH REGISTER 


@#START ;; JUMP TO STARTING ADDRESS OF PROGRAM 
~SBTTL ACT11 HOOKS 


SERRA AERAE TERETE RATATAT EATER EARTH ERE 


HOOKS ggg BY ACT11 
$SVPC= 


DISPREG: 


SWREG: 


0 
-SBTTL STARTING ADDRESS(ES) 


TRAP CATCHER 


~=174 
-WORD 0 


. WORD 


JMP 


S ¢ 
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:; TTY PRINTER VECTOR 
;;PROGRAM INTERRUPT REQUEST VECTOR 


SAVE PC 
:;1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 


s32)SET LOC.52 TO ZERO 
RESTORE PC 


SEQ 0019 
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001100 


001160 
001162 


001214 
001216 
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001100 
000000 
0 


000000 
000000 


5 
000012 


605015 051104 053111 


MACY11 30A(1052) 


COMMON TAGS 
-SBTTL COMMON TAGS 


CPTI eet iii iri iii iii titi iii iiiiii iti titi iti cities 
SSTHIS TABLE CONTAINS eaiiaate COMMON STORAGE LOCATIONS 
:*USED IN THE PROGRAM 


.=1100 
SCMTAG: 
SPASS: .WORD 
STSTNM: .BYTE 
SERFLG: .BYTE 
SICNT: .WORD 
SLPADR: .WORD 
S$LPERR: .WORD 
SERTTL: .WORD 
SITEMB: .BYTE 
SERMAX: .BYTE 
SERRPC: .WORD 
SGDADR: .WORD 
SBDADR: .WORD 
SGDDAT: .WORD 
SBDDAT: .WORD 
. WORD 
. WORD 
SAUTOB: .BYTE 
SINTAG: .BYTE 
WORD 
SWR: WORD 
DISPLAY: .WORD 
STKS: 177560 
STKB: 177562 
$TPS: 177564 
STPB: 177566 
SNULL -BYTE 
SFILLS: .BYTE 
SFILLC: .BYTE 
STPFLG: .BYTE 
SREGAD: .WORD 
SREGO: .WORD 
SREG1 WORD 
SREG2: .WORD 
SREG3: .WORD 
SREG4 . WORD 
SREGS WORD 
SREG6: .WORD 
SREG7 WORD 
SREG10: .WORD 
SREG11: .WORD 
STIMES: 6 
SESCAPE:0 
SQUES: ASCII 
SCRLF: ASCII 
SLF: ASCIZ 
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oooooo°o°oo°o -o°oo°oo°oo om 


A) 
om 
— =< 
wz 
wv 


™m 


OOoooceoce0oo &0O-NO 


/?7/ 
<15> 
<12> 


;: START OF COMMON TAGS 

:; CONTAINS PASS COUNT 

;; CONTAINS THE TEST NUMBER 

;; CONTAINS ERROR FLAG 

;: CONTAINS SUBTEST ITERATION COUNT 
;; CONTAINS SCOPE LOOP ADDRESS 

;; CONTAINS SCOPE RETURN FOR ERRORS 
;; CONTAINS TOTAL ERRORS DETECTED 
;: CONTAINS ITEM CONTROL BYTE 

>; CONTAINS MAX. ERRORS PER TEST 

;: CONTAINS PC OF LAST ERROR INSTRUCTION 
;; CONTAINS ADDRESS OF ‘GOOD’ DATA 
:; CONTAINS ADDRESS OF ‘BAD’ DATA 
;;CONTAINS "GOOD' DATA 

;; CONTAINS "BAD* DATA 

; sRESERVED--NOT TO BE USED 


;;AUTOMATIC MODE INDICATOR 
;: INTERRUPT MODE INDICATOR 


: :ADDRESS OF SWITCH REGISTER 

;;ADDRESS OF DISPLAY REGISTER 

::TTY KBD STATUS 

7: TTY KBD BUFFER 

s; TTY PRINTER STATUS REG. ADDRESS 

:: TTY PRINTER BUFFER REG. ADDRESS 

s: CONTAINS NULL CHARACTER FOR FILLS 
::CONTAINS # OF FILLER CHARACTERS REQUIRED 
7: INSERT FILL CHARS. AFTER A ‘LINE FEED" 
:2'‘'TERMINAL AVAILABLE’’ FLAG (BIT<07>=0=YES) 
: : CONTAINS THE ADDRESS FROM 

::WHICH (S$REGO) WAS OBTAINED 

: CONTAINS (($SREGAD) +0) 

>: CONTAINS ((SREGAD) +2) 

: ;CONTAINS ((S$REGAD) +4) 

>: CONTAINS ((S$REGAD) +6) 

s: CONTAINS (($REGAD) +10) 

: CONTAINS ((S$REGAD) +12) 

: : CONTAINS ((S$REGAD) +14) 

>: CONTAINS ((SREGAD) +16) 

>: CONTAINS ((S$REGAD) +20) 

>: CONTAINS ((S$REGAD) +22) 

:;MAX. NUMBER OF ITERATIONS 

; ESCAPE ON ERROR ADDRESS 

: ;QUESTION MARK 

: ; CARRIAGE RETURN 

s;LINE FEED 


PRES AAAAAAEAARAAAAA ARE AAA RETA AAA ATA AAA AAA AAA TARA AEKARRAARRE REET 


eASCIZ <15><12>/DRIVE PRESNT/ 


MSGI: 
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CZRKKF .P11 21-FEB-78 08:51 COMMON TAGS SEQ 0021 
1085 001224 020105 051120 051505 
1086 001232 052116 000 
1087 001236 EVEN 
1088 001236 005015 047516 042516 MSG2: eASCIZ <15><12>/NONE/ 
Mb 001244 000 
1091 001245 015 041412 052116 MSG3: eASCIZ <15><12>/CNT RDY DIDN'T SET/ 
1092 001252 051040 054504 042040 
1093 601260 042111 023516 020124 
Hb sn 001266 042523 000124 
1096 001272 005015 051104 053111 MSG4: -ASCIZ <15><12>/DRIVE / 
by +24 001300 020105 000 
1099 001303 015 040412 046114 MSGS: ASCII <15><12>/ALL DRVS/ 
3s. 001310 042040 053122 123 
1102 001315 040 051104 050117 MSG6: -ASCIZ / DROPD/<15><12> 
1103 001322 006504 000012 
1104 EVEN 
1105 
1106 :RK11 REGISTERS 
1107 :1F FOR ANY REASON THE REGISTER ADDRESSES ARE DIFFERENT FROM THESE 
1108 : (GIVEN BELOW), THE CONTENTS OF THE APPROPRIATE POINTERS SHOULD BE 
i + sMODIFIED SO THAT THE CORRECT ADDRESS IS USED. 
1117 -EVEN 
1112 001326 177400 RKDS: 177400 
1113 001330 177402 RKER: 177402 
1114 001332 177404 RKCS: 177404 
1115 001334 177406 RKWC: 177406 
1116 001336 177410 RKBA: 177410 
1117 001340 177412 RKDA: 177412 
1118 001342 177416 RKDB: 177416 
1119 
1120 
1121 : TAGS AND GENERAL DATA AREA 
1122 ; 
1123 ; 
1124 
1125 001344 000000 SIMUL: 0 :FLAG TO BE SET TO 1 WHEN ON SIMULATOR 
1126 001346 000000 FTITLE: O sFLAG FOR PRINTING PROGRAM TITLE 
1127 001350 000000 DRIVAD: 0 sCONTAINS ADDRESS OF THE DRIVE UNDER TEST 
1128 001352 000000 DRVDON: 0 :CONTAINS THE NUMBER OF DRIVES CHECKED. 
1129 :1T IS INCREMENTED EACH TIME THE TESTS FOR 
1130 :A DRIVE IS COMPLETED. 
1131 001354 000000 DRVPTR: 0 sCONTAINS THE POINTER TO THE DRIVE FLAG (DRIVEO 
1132 :-DRIVE7) OF THE DRIVE TO BE CHECKED NEXT. 
1133 001356 000000 INDX1: 0 :GENERAL INDEX FOR KEEPING COUNT 
1134 001360 000000 INDX2: 0 ; GENERAL INDEX 
1135 001362 000000 COUNT: 0 :GENERAL COUNT REGISTER 
1136 001364 000000 COUNT1: 0 :COUNT REGISTER USED FOR 'DRESET' SUBROUTINE 
1137 001366 000000 TIMER: 0 : TIMER REGISTER 
1138 001370 000000 EFLG1: 0O :SET, TO INDICATE A PARTICULAR 
be ;ERROR CONDITION 
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_ 
>= 
WN "Oo O@BNOULPWN OO Omo~ 


ee ewe ed et ond ed od od wd 


ee ed ed ed ed ed = 0’ od td 
SSSA SRN VSS SSS SASSY evyvyvvvys 


—OOeONOUVSWN—-OOONOuU 


001372 


001400 


001402 


001404 
001406 
001410 
001412 


001414 


001432 


001434 
001436 
001440 
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000100 


000200 


000220 


000000 
000000 


000000 
000000 


000000 


000000 
000000 
000000 
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COMMON TAGS 
SEEKO: 100 
SEEK1: 1000 
SEEK2: 14500 
RKPRI: 200 
RKVEC: 220 
FFLAG: O 
ODDEVN: 0 
DDPCH: 0 
DRIVS: QO 


SEQ 0022 


sCONTAINS ADDRESS OF CYLINDER 2 

;CONTAINS ADDRESS OF CYLINDER 20 

;CONTAINS ADDRESS OF CYLINDER 312 

;CONTAINS THE CPU LEVEL AT WHICH 

;RK11 NORMALLY INTERRUPTS. THIS WORD 

;SHOULD BE CHANGED IF RK11 IS DESINGATED 

:;A BR LEVEL OTHER THAN 5. E.G. IF IT IS CHANGED 
:T0 6, THIS WORD SHOULD BE CHANGED TO 240. 
;CONTAINS THE NORMAL VECTOR ADDRESS TO WHICH 
;RK11 INTERRUPTS. IF THIS IS NOT SO, CHANGE 

; THIS WORD TO CONTAIN MODIFIED VECTOR ADDRESS. 


;USED TO DETERMINE WHICH OF RK-O5F DRIVES ACTIVE 
;0 IF EVEN DRIVE 

:-1 IF ODD DRIVE 

;1F PROGRAM LOADED FROM RKO5, CONTAINS 

;ADDRESS OF DRIVE WITH RKDP PACK 

; CONTAINS THE NUMBER OF DRIVES PRESENT 


;THE FLAGS BELOW (BIT 0) ARE SET TO 1 TO INDICATE THAT A PARTICULAR DRIVE 
;1S PRESENT AND IS TO BE TESTED. BIT 12, IF SET, INDICATES THAT THE DRIVE 
sWAS DROPPED AFTER MAXIMUM ALLOWABLE NUMBER OF ERRORS OCCURED ON THAT 


;DRIVE (SW 6 SET). 


;1F MORE THAN 5 ERRORS OCCUR IN THE HARDWARE POLLING TEST (LAST) 
; THEN ALL DRIVES ARE DROPPED. BUT BIT 12 IS NOT SET. 


DRIVO: 
DRIVI: 
DRIV2: 
DRIVS: 
DRIV4: 
DRIVS: 
DRIV6: 
DRIV?7: 


T56FLG: 
PHYDRV: 
SIZYET: 


0 


ooo oo°oo°on°ooe 


sFLAG SET TO 1 WHEN DRIVE 0 PRESENT 
FOR DRIVE 

FOR DRIVE 
FOR DRIVE 
;FOR ORIVE 
FOR ORIVE 
FOR DRIVE 
FOR DRIVE 


wO un & wt — 
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CZRKKF .P11 21-FEB-78 08:51 ERROR POINTER TABLE SEG 0025 
at -SBTTL ERROR POINTER TABLE 
1184 s*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
1185 :*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
1186 s*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
1187 ; *NOTE1: If SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC). 
ie ; *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
1190 7* EM ;;POINTS TO THE ERROR MESSAGE 
1191 ;* DH :;POINTS TO THE DATA HEADER 
1192 7% DT ;;POINTS TO THE DATA 
1193 s* DF ;;POINTS TO THE DATA FORMAT 
1194 
1195 
1196 001442 SERRTB: 
1197 
1198 
1199 
1200 : 
1201 ;THE ERROR ITEMS TABLE CONSISTS OF ALL THE POSSIBLE ERROR MESSAGES 
1202 sUSED IN THIS PROGRAM. AN ERROR CALL IN THE PROGRAM CORRESPONDS TO 
1205 >THE ITEM NUMBER IN THE ERROR TABLE. THUS ‘ERROR 1° IN THE 
1204 ;PROGRAM CORRESPONDS TO ‘ITEM 1° IN THE ERROR TABLE. 
1205 :"EM###" IS THE POINTER TO THE ERROR MESSAGE WHICH WILL BE TYPED 
1206 ;OUT IN CASE THAT ERROR WERE TO OCCUR. THUS FOR ‘ERROR 1° THE ERROR 
1207 ;MESSAGE TYPE OUT WILL BE ‘TIME OUT ON RK11 REG’. 
1208 :"DH###* IS THE POINTER TO THE HEADER BLOCK WHICH WILL BE TYPED OUT 
1209 : IMMEDIATELY AFTER THE ERROR MESSAGE. 
1210 ;"DT###" SERVES AS A POINTER TO THE MEMORY LOCATIONS WHERE 


211 >THE INFORMATION RELEVANT TO THE ERROR TYPE OUTS (LIKE PC, CONTENTS 
212 :OF RKCS ETC.) WILL BE PICKED UP FROM. 

213 s THE LAST ROW CONTAINING ‘O° SERVES AS A TERMINATOR. 

214 > EXAMPLE: 

215 7 1F ON RUNNING THIS PROGRAM A TIMEOUT WERE TO OCCUR ON ADDRESSING RKDS 
216 :(177400), BECAUSE OF SOME FAULT, THE FOLOWING TYPEOUT WOULD 

1217 sOCCUR ON THE TELETYPE. 


1218 

1219 : TIME OUT ON RK11 REG 

1220 : PC REG 

eet : ##eee# = =§=©177600 

‘ee. :NOTE THAT ###### WOULD BE THE ACTUAL PC WHERE ‘ERROR’ 1° IS LOCATED. 
1225 :THE ERROR HANDLER IS LOCATED AT ‘SERROR'. THE ERROR CALL IS AN ‘EMT’ 
1226 s INSTRUCTION WITH ITS LOWER BYTE ENCODED TO PROVIDE INDEXING TO THE 
1227 ; ITEMS IN THE ERROR TABLE. 

1228 :THUS "ERROR 1" IS 104001 

1229 : "ERROR 103" 18 104126 ETC. 

1230 

1231 

1232 

1233 

1234 

1235 sERROR ITEMS TABLE 

1236 





MD~11-CZRKKF, 
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CZRKKF .P 


001442 
001444 
001446 
001450 


001452 
001454 
001456 
001460 


001462 
001464 
001466 
001470 


001472 
001474 
001476 
001500 


001502 


001510 


001512 
001514 
001516 
001529 


001522 


001540 
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025402 
032327 
031742 
000000 


027253 


025427 
032047 
031732 
000000 


025456 
032213 
031724 
000000 


025470 
032155 
031762 
000000 


025500 
032155 
031762 
000000 


025510 


000000 


025531 


000000 
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ERROR POINTER TABLE 


s ITEM 


ITEM 


ITEM 


: ITEM 


: ITEM 


: ITEM 


; ITEM 


s ITEM 


1 


: SIN® * SET 


PC RKCS RKER RKDS RKDA 
SSERRPC $SREGO $REG1 $REG2 $REG3 


:CNTRL RDY DIDN'T SET ON READ/FMT FROM DISK ADDRESS 
PC RKCS RKER RKWC 
® SERRPC SREGO $REG1 S$REG2 


+ RKDA WRONG AFTER SSE 
PC EXPCT  RECVD 
® SERRPC SREGO $REG1 


2 at oe 
; SERRPC SREGO 


:'DPL* BIT SET, CHECK DRIVE —_— 
RKCS RKD 


RKER 


PC 
sSERRPC SREGO S$REG1 SREG2 


;"DRU’ BIT SET, CHECK DRIVE 


RKER RKDS 


3P RK 
sSERRPC SREGO S$REG1 SREG2 


>"RKOS' BIT NOT SET 
sPC RKOS 
;SERRPC SREGO 


; DRY’ NOT SET 
hg RKCS 
;SERRPC $REGO $REG1 SREG2 SREG3 


RKER RKDS RKDA 


SEQ 0024 


MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2 
21-FEB-78 


CZRKKF .P11 


1305 


soe 


Www 


PERRO PQ et et 


w w 
Ll EA WA WI I PO PO PO PD 
ep eed perp Bh FS phe 4h a thet eh Ge thet tr Pte eter phe 


pen ete heh byes A NA et et tt et 0+ > fher fer fear fer foot fer br ary 


ee | ee |, ee ee SS 


SESSERESES 
DOnNAUSWN—-OO 


001542 


001600 


001602 


001610 


001612 


001622 
001624 
001626 
001630 


025551 


000000 


025570 


000000 


025747 


000000 


025415 
032047 
031732 
000000 


026004 
032150 
031756 
000000 


mM 2 
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08:51 ERROR POINTER TABLE 
: ITEM 11 
EM34 ;"SOK* DID NOT SET 
DH34 PC RKDS 
= sSERRPC S$REGO 
:ITEM = 12 
EM35 :"SEC COUNTR’ DIDN'T COUNT TO 0 
DH35 sPC SEC=CNTR 
de sSERRPC SREGO 
: ITEM 13 
EM36 > "SEC COUNTR' DIDN'T INCREMENT 
DH36 PC PRSNT-COUNT NXT=COUNT 
_* :SERRPC $REGO SREG1 
ITEM 14 
EM37 : "SECTOR COUNTER’ INCREMENTED WRONG 
DH4 Ht EXPCTD RECVD 
“te :SERRPC SREGO SREG1 
:ITEM = 15 
EM4O :DION’T GET SC=SA FOR THIS SECTOR 
DH40 PC SECTOR RKDS 
i sSERRPC SREGO $REG1 
ITEM 16 
EM41 sERROR-'R/W/S RDY* SHOULD BE SET 
DH34 sPC RKDS 
de sSERRPC SREGO 
ITER 17 
EM13 :RKBA ERROR 
DH4 PC EXPCT RECVD 
. sSERRPC S$REGO $REG1 
: ITEM 20 
EM43 =: UNEXPECTED RK11 INTERRUPT 
DH21 :PC 
‘- : SERRPC 


SEQ 0025 
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001650 


001652 


001660 


001662 


001670 


001672 
001674 
001676 
001700 


001702 
001704 
001706 
001710 


001712 
001714 
001716 
001720 


001722 


001730 


001732 
001734 


001736 
001740 
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026036 
032327 
031742 
000000 


026112 


000000 


026160 
032155 
031762 
000000 


026216 
032047 
031732 
000000 


026260 
032155 
031762 
000000 


026307 
032327 
031742 
000000 


026362 


000000 


026407 
032155 


031762 * 


000000 


MACY11 30A(1052) 
ERROR POINTER TABLE 


; ITEM 


; ITEM 


: ITEM 


ITEM 


; ITEM 


: ITEM 


; ITEM 


: ITEM 


21 


RKCS 


PC 
: SERRPC SREGO 


EXPCT 


® SERRPC SREGO 


RKCS 


PC 
® SERRPC SREGO 


RKCS 


PC 
:SERRPC SREGO 


RKER 
SREG1 


RKER 
$REG1 


RKER 
SREG1 


SREG1 


RKER 
SREG1 


RKER 
SREG1 


REGVD 


SREG1 


RKER 
SREG1 


N 2 
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RKDS 
SREG2 


SREG2 


SREG2 


ei R/W/S RDY* DID NOT CLEAR 


RKDS 


SREG2 


RKDS 


SREG2 


¢RKDA CHANGED AFTER SEEK 
PC EXPCTD 
® SERRPC SREGO 


;"CNTRL RDY* DIDN*T SET AFTER SEEK OR DRIVE RESET 
RKCS RKDA 


:PC K 
sSERRPC SREGO SREGS. 


2 ERR" OR *HE’ SET ON SEEK OR DRIVE RESET 
RKDS RKDA 


SREGS 


2. BIT, ON SEEK OR DRIVE RESET 
RKCS RKDS 
 SERRPC SREGO 


eRKCS CHANGED AFTER FUNCTION WAS DONE 
PC RECVD 


a ote DION'T SET AFTER SEEK OR DRIVE RESET 
K 
:SERRPC $REGO 


RKDA 


SREGS 


:'CNTRL RDY* DIDN'T CLEAR AS GO WAS SET 
RKDS 
SREG2 


SEQ 0026 
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001742 
001744 
001746 
001750 


001752 
001754 
001756 
001760 


001762 
001764 


001766 
001770 


001772 
001774 
001776 
002000 


002002 
002004 
002006 
002010 


002012 


002020 


002022 
002024 
002026 
002030 
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026452 
032374 
031774 
000000 


026544 
032374 
031774 
000000 


026623 
032503 


031774 
000000 


026662 
032075 
031724 
000000 


026720 
032047 
031732 
000000 


026757 


000000 


027014 
032047 
031732 
000000 
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ERROR POINTER TABLE 


;1TEM 


ITEM 


s ITEM 


ITEM 


: ITEM 


; ITEM 


ITEM 


31 

EM5S4 
DHS4 
D154 


;*CNTRL RDY* DIDN'T SET ON DOING WRITE/FMT STARTING 
>FROM <DSK-ADRES> 

;PC RKCS RKER RKDS RKDA 

;DRV# CYL <DSK-ADRES> SUR SECTR 
;SERRPC SREGO SREG1 S$REG2 SREG3 

;$REG4 SREGS S$REG6 SREG> 


;"HE" OR "ERR' ON WRITE/FMT STARTING FROM 

; <DSK-ADRES> 

:PC RKCS RKER RKDS RKDA 

;DRV# CYL <DSK-ADRES> SUR SECTR 
;SERRPC SREGO SREG1 S$REG2 SREG3 

;$REG4 SREGS S$REG6 S$REG7 


:RKDA INCREMENTED WRONG ON WRITE OR WRITE FORMAT 
:PC EXPCT: DRV# CYL SUR SECTR 
sRECVD: DORV# CYL SUR SECTR 

RPC SREGO S$REG1 S$REG2 S$REG3 


: SER 
:$REG4 $REGS $REG6 S$REG7 


;RKWC DION'T OVERFLOW ON WRITE OR WRITE FORMAT 
PC RECVD 
;SERRPC SREGO 


;RKBA INCREMENTED WRONG ON WRITE OR WRITE FORMAT 
;PC EXPCT  RECVD 
;SERRPC SREGO SREG1 


+ RKER SET, ON WRITE/READ/ FORMAT 
PC RKCS RKER RKDS 
® SERRPC SREGO SREG1 SREG2 


;RKDB ERROR 
:PC EXPCT  RECVD 
;SERRPC SREGO $RES1 


SEQ 0027 


MD-11-CZRKKF, 


CZRKKF 


Sa 


tet ee ts os os 
MAMMA YIM Vw 


—~ ot et 
NOUS ww © 


oP11 


002032 
002034 


002036 
002040 


002042 
002044 
002046 
002050 


002052 


002060 


002062 


002070 


002072 


002100 


002102 
002104 
002106 
002110 


002112 
002114 
002116 
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027026 
032503 


031774 
000000 


027072 
032610 
031732 
000000 


027135 


000000 


027201 


000000 


027240 


000000 


027253 
032374 
031774 
000000 


027344 
032374 
031774 
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ERROR POINTER TABLE 


: ITEM 


: ITEM 


: ITEM 


ITEM 


: ITEM 


s ITEM 


ITEM 


;RKDA INCREMENTED WRONG ON READ OR READ FORMAT 


;PC EXPCT: ORV# CYL oe SECTR 
;RECVD: DRV# CYL SUR SEC 
: SERRPC SREGO $REG1 SREG? SREGS 


;SREG4 SREGS $REG6 SREG7 


+ RKWC DID NOT OVERFLOW ON READ OR READ FORMAT 
PC RKWC RKDA 
® SERRPC SREGO SREG1 


;RKBA INCREMENTED WRONG ON READ OR READ FORMAT 
:PC EXPCT  RECVD 
;SERRPC SREGO SREG1 


+ INCORRECT HEADER FROM ‘SECTOR’ 
PC SECTR EXPCT RECVD 
: SERRPC SREGO S$REG1 SREG2. 


;DATA ERROR 
sPC EXPCT RECVD ODSK-ADRES 
;SERRPC SREGO SREG1 SREG2 


;"CNTRL RDY’' DIDW'T SET ON DOING READ/FMT STARTING 
; FROM <DSK-ADRES> 

:PC RKCS RKER RKDS RKDA 

;DRV# CYL <DSK-ADRES> SUR SECTR 
;SERRPC SREGO S$REG1 SREG2 SREGS 

;SREG4 SREGS SREG6 SREG7 


;'HE’ OR ‘ERR* BIT SET ON READ/FMT STARTING 

; FROM <DSK-ADRES> 

7% RKCS RKER RKDS RKDA 

sORV#® CYL <DSK-ADRES> SUR SECTR 
;SERRPC SREGO S$REG1 SREG2 SREGS 

:SREG4 SREG5S SREG6 S$REG7 


SEQ 0028 


MD-11-CZRKKF, 
CZRKKF .P11 


aaa 
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002120 000000 


002122 


002130 


002132 
002134 
002136 
002140 


002142 


002150 


002152 


002160 


002162 


002170 


002172 


002200 


002202 


002210 


002212 
002214 
002216 


027422 


000000 


027464 
032213 
031732 
000000 


027536 


000000 


027606 


000000 


027656 


000000 


027721 
032047 
031732 
000000 


027756 
032753 
031762 
000000 


030001 
032327 
031742 


MACY11 30A(1052) 
ERROR POINTER TABLE 


: ITEM 


; ITEM 


: ITEM 


ITEM 


: ITEM 


: ITEM 


7; ITEM 


: ITEM 
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21-FEB-78 08:58 PAGE 30 
SEQ 0029 


; WRONG DRIVE ID IN RKDS AFTER SEEK 
PC EXPCT  RECVD 
‘ SERRPC SREGO S$REG1 


+~ ge * —* DRIVE ID BITS(13=15) SHOULD BE CLEAR 
:SERRPC $REGO 


+ aaa om INTERRUPTING DRIVE # NOT PRESENT 
RIV 
;SERRPC SREGO 


Pai ree NOT INTERRUPT DURING HARDWARE POLL 
 SERRPC SREGO 


Ay vias & SET AFTER WAS DONE 
 SERRPC SREGO 


;RKDA CHANGED AFTER ‘DRIVE RESET‘ 
;PC EXPCT  RECVD 
sSERRPC SREGO S$REG1 


sDATA ERROR AT WORD# 
PC WORD# EXPCT RECVD 
® SERRPC SREGO S$REG1 SREG2 


;CNTRL RDY DID NOT SET AFTER READ CHECK 


RKCS RKER RKDS RKDA 


PC 
:SERRPC SREGO $REG1 SREG2 S$REG3 


MO~11-CZRKKF, 
CZRKKF P11 


1574 


002222 


002230 


002232 
002234 
002236 
002240 


002242 


002250 


002252 


002260 


002262 
002264 
002266 
002270 


002272 
002274 
002276 
002300 


002302 
002304 
002306 
002310 


002312 
002314 
002316 
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002220 000000 


030043 


000000 


030067 
033010 
031724 
000000 


030105 
033024 
031732 
C00000 


030156 
032047 
031732 
000000 


030214 
032047 
031732 
000000 


030245 


000000 


030306 


000000 


030351 
032155 
031762 
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: ITEM 


ITEM 


ITEM 


ITEM 


ITEM 


: ITEM 


: ITEM 


; ITEM 


0 
57 
EM102 


. 3 
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ERROR POINTER TABLE 


;PC RKCS 
:SERRPC $REGO 


PC 
:SERRPC $REGO 


- DID NOT sg = ta ON READ CHECK OR WRITE CHECK 


RECVD 
;SERRPC SREGO 


RKER 
SREG1 


: CSE" ON READ CHECK 
RKER 


SREG1 


:"ERR* OF ‘HE*® SET ON a 


SREG2 


sRKDA sas WRONG ON READ CHECK 


:PC EXPCT 
;SERRPC SREGO 


ig CHANGED , ee READ CHECK 


EXPCT 
;SERRPC SREGO 


ECVD 
SREG1 


ECVD 
SREG1 


s MEMORY + CHANGED AFTER READ CHECK 


PC C 
® SERRPC SREGO 


¢CNTRL ROY DID NOT SET AFTER WRITE CHECK 
PC RKCS RKDA 


® SERRPC SREGO 


sHE OR ye BIT SET AFTER Pine WRITE CHECK 


PC RKCS 
® SERRPC $REGO 


EXPCT 
SREG1 


RKER 
SREG1 


RKER 
SREG1 


RECVD 
SREG2 


RKDS 
$REG2 


SREG2 


SREGS 


SEQ 0030 


MD-11-CZRKKF, 
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He 


002322 


002330 


0023532 


002750 


002362 


002416 
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002320 000000 


030376 


000000 


030417 
032047 
031732 
000000 


030456 


000000 


030515 


000000 


030551 


000000 


030624 


000000 


030671 


030744 


033106 
031724 
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ERROR POINTER TABLE 


: ITEM 


; ITEM 


;1TEM 


: ITEM 


: ITEM 


ITEM 


: ITEM 


: ITEM 


0 
67 
EM112 


;WRITE CHECK ERROR 


RKER RKDS 


:PC RKCS 
sSERRPC SREGO S$REG1 SREG2 


;RKDA INCREMENTED WRONG ON WRITE CHECK 
;PC EXPCT  RECVD 
:SERRPC SREGO $REG1 


;RKBA INCREMENTED WRONG ON WRITE CHECK 
;PC EXPCT RECVD 
sSERRPC SREGO $REG1 


;RKBA INCREMENTED WITH IBA SET 
s¥¢ EXPCT  RECVD 
;SERRPC SREGO SREG1 


; WRONG MEMORY LOCATION CHANGED WITH IBA SET 
PC WORD# EXPCT RECVD 
 SERRPC SREGO SREG1 SREG2 


wi DID Bory INTERRUPT WHEN IDE WAS SET 
S 
 SERRPC $RECO 


oe DID ot INTERRUPT AFTER SEEK WAS INITIATED 
7 SERRPC $REGO 


;SCP SET BEFORE SEEK COMPLETED 
PC RKCS 
sSERRPC S$REGO 


SEQ 0031 


MD-11-CZRKKF, 
CZRKKF .P11 


1686 
1687 


NANNNANNANANN ~N 
a, Py Prey Pi Pn Pane Pe Pi Py Si i ite > te fi fie ie 


“NN 
Nm 
OWNAVLSWN—$ O OOnNAOUP wr 


730 
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002420 000000 


002422 


002430 


002432 
002434 
002436 
002440 


002442 


002450 


002452 


002460 


002462 


002470 


002472 
002474 
002476 
002500 


002502 
002504 
002506 
002519 


002512 
002514 


031002 
0 


000000 


031051 
033106 
031724 
000000 


031110 


000000 


031152 


000000 


031211 
033122 
031732 
000000 


031252 
033122 
031732 
000000 


031314 


000000 


031351 
033207 
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: ITEM 


: ITEM 


ITEM 


: ITEM 


ITEM 


ITEM 


: ITEM 


: ITEM 
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ERROR POINTER TABLE 


sCNTRL go DID NOT CLEAR ‘SCP* BIT 


PC 
® SERRPC SREGO 


eRKIY DID ay INTERRUPT AFTER READ WAS DONE 


PC 
® SERRPC $RECO 


;PC 


REGADD 


:SERRPC SREGO 


PC 


LEVEL 


* SERRPC SREGO 


;HE OR ERR DID NOT SET 
; PC RK 


RKCS 


RKER 
SREG1 


SREG1 


SREG1 


RKCS 
SREG1 


RKER 
SREG1 


ER 


;RK11 DID NOT INTERRUPT th SEEK COMPLETED 
RKD 


Ha ® RKCS 
sSERRPC SREGO SREG2 


:CNTRL RESET DID NOT CLEAR REGISTER 
RECVD 


¢RKVI DID NOT ao AT CPU LEVEL 


;RK11 INTERRUPTED AT WRONG CPU LEVEL 
;PC LEVEL 
;SERRPC SREGO 


ERR BIT’ DID NOT SET IN RKER 
;PC RKCS 
;SERRPC SREGO 


ERR BIT 
SREG2 


SEQ 0032 





MD-11-CZRKKF, 
CZRKKF .P11 


002516 031732 
002520 


002522 
002524 
002526 
0025306 


002532 


002550 


002552 
002554 
002556 
002560 


002562 


002570 


002572 


002600 


002602 


002610 


002612 
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000000 


031376 


000000 


031410 


000000 


031433 
033207 
031732 
000000 


031474 
032047 
031732 
000000 


030306 


000000 


031531 


000000 


031547 
033273 
031742 
000000 


031616 


MACY11 30A(1052) 


: ITEM 


: ITEM 


; ITEM 


ITEM 


ITEM 


; ITEM 


; ITEM 


; ITEM 


DT2 
0 


116 
EM141 


H 3 
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ERROR POINTER TABLE 


;SERRPC SREGO 


+ RKER ERROR 


PC 


EXPCT 


® SERRPC SREGO 


sPC 


SREGO 


SREG1 


RECVD 
SREG1 


;NXC BIT DID NOT SET 
;PC RKCS 


RKER 
SREG1 


RKDA 
SREG2 


eRKII DIDN'T “oe ON SOFT ERROR 


RKCS 


PC 
“ SERRPC SREGO 


k 
SREG1 


oe BITS vie Gere WRONG IN RKCS 


EXPCTD 


sSERRPC SREGO 


SREG1 


ae yo NOT SET AFTER WRT CHK 
:SERRPC $REGO 


RKER 
SREG1 


; "WPS" NOT CLEAR 


RKCS 


PC 
:SERRPC $REGO 


+ pi ERROR ON TRANSFER FROM DISK TO TTY 


EXPCT 


C 
:SERRPC SREGO 


:'DRIVE #' PRESENT, 


RKER 
SREG1 


RECVO 
SREG1 


RKWC 
SREG2 


RKDS 
SREG2 


RKBA 
SREG2 


RKDA 
SREGS 


RKCS 
SREGS 


BUT NOT SPECIFIED 


SEQ 0035 
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CZRKKF .P11 


002614 
002616 
002620 


002622 
002624 
002626 
002630 


002632 
002634 


032732 
031724 
00000 


025370 


000000 


031662 
000000 


. 3 
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ERROR POINTER TABLE 


DH74 ;PC DRIVE # 

ot ;SERRPC SREGO 
sITEM 86117 

EM11 ;RKWC ERROR 

;PC EXPCT  RECVD 
DT2 ;SERRPC SREGO $REG1 


0 
:1TEM nat 


SEQ 0034 


MD-11~-CZRKKF, 
CZRKKF .P11 


002636 


002640 
002646 


002702 


000005 
023737 


000000 


012706 


012706 
012737 


012737 


013746 


001012 
000403 


012637 


023737 
001416 
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000042 
176464 


000250 
000209 


001100 
001140 
001100 
022140 


003030 


000004 


177777 


00310¢ 
000176 
000174 
000004 


000042 


TEST 2 


000046 


176440 


000020 


001142 
176046 


001140 
001142 


000046 
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ERROR POINTER TABLE 


START: RESET ;CLEAR THE BUS 
7 GIVE = TIME TO LOAD HEADS se CASE OF AN APT START 
CMP #42, ;ARE WE IN ACT11 AUTOMATIC MODE? 
BNE STARTA ;NO, SKIP DELAY 
CLR @RKDA ; SELECT UNIT 0 
MOV 250,R0 WAIT FOR. 
208: BIT #200, aRKDS DRIVE READY. 
BNE TARTA :IN CASE. 
CLR R1 : OF APT. 
DEC R1 START, BUT.. 
BNE 72 sDON'T WAIT.. 
DEC RO s FOREVER. 
BNE 20$ 
| HALT sRKDS BIT 7 (DRIVE READY) NEVER SET 
STARTA: 
SBTTL INITIALIZE THE COMMON TAGS 
:;CLEAR THE COMMON TAGS (SCMTAG) AREA 


#SCAMTAG,R6 :;FIRST LOCATION TO BE CLEARED 
(R6)+ 7;CLEAR MEMORY LOCATION 
#SWR,R6 ;; DONE? 

76 3;LOOP BACK IF NO 

#STACK, SP ;;SETUP THE STACK POINTER 


:: INITIALIZE A FEW VECTORS 


#SSCOPE ,a#IOTVEC 57h ie FOR SCOPE ROUTINE 


MOV #340 ,a#1OTVEC#2 55L 

MOV #SERROR ,a#EMTVEC ::;EMT VECTOR FOR ERROR ROUTINE 

MOV #340 Q#EMTVEC+2 > LEVEL 7 

MOV #STRAP ,@#TRAPVEC ;; TRAP VECTOR FOR TRAP CALLS 

MOV #340 ,@#TRAPVEC+2;LEVEL 7 

MOV #SPWRON Q#PWRVEC ;;POWER FAILURE VECTOR 

MOV #340 ,a#PWRVEC+2 ;;LEVEL 7 

CLR STIMES ;; INITIALIZE NUMBER OF ITERATIONS 
CLR SESCAPE ;;CLEAR THE ESCAPE ON ERROR ADDRESS 
MOVB #1, SERMAX ;;ALLOW ONE ERROR PER TEST 

MOV Me po > sINITIALIZE THE LOOP ADDRESS FOR SCOPE 
MOV PE ; SETUP THE ERROR LOOP ADDRESS 


, SLPERR 
:;SIZE FOR A HARDUARE SWITCH REGISTER. IF NOT FOUND OR IT IS 


;;EQUAL TO A ‘'=1", 


64$: 
65$: 
66$: 


. SBTTL 


BEQ 


SETUP FOR A SOFTWARE SWITCH REGISTER. 


Q#ERRVEC,-(SP) ;;SAVE ERROR VECTOR 

#64$ ,Q#ERRVEC ;;SET UP ERROR VECTOR 

#DSWR, SUR :: SETUP FOR A HARDWARE SWICH REGISTER 
WODISP,DISPLAY ::AND A HARDWARE DISPLAY REGISTER 

#1, aSUR :; TRY TO REFERENCE HARDWARE SWR 

66% ;;BRANCH IF NO TIMEQUT TRAP OCCURRED 


;;AND THE HARDWARE SWR IS NOT = -1 


65$ ;;BRANCH IF NO TIMEOUT 

#65$, (SP) ;;SET UP FOR TRAP RETURN 

#SWREG, SWR ::POINT TO SOFTWARE SWR 
#DISPREG, DISPLAY 

(SP)+,@MERRVEC ;;RESTORE ERROR VECTOR 

a#42 ,a#46 ;ARE WE IN ACT11 AUTOMATIC MODE? 
69% YES, SKIP TITLE 


TYPE PROGRAM NAME 
:; TYPE THE NAME OF THE PROGRAM IF FIRST PASS 


SEQ 0035 





MD-11-CZRKKF, 
CZRKKF P11 


003134 
003140 
003142 


003312 
003314 


003322 
003326 
003330 


005227 
001043 
104401 


005737 


112737 
000424 


012700 
012701 
005020 
005201 
001375 
005227 
001020 
013746 
012737 
005737 


000406 
012737 


012716 


000002 
012637 


012700 


013737 
122737 
101002 
105037 


005737 


104401 
000413 
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177777 
003200 
000042 
001140 


000001 


001410 
177764 


177777 
000004 


003314 
177776 


? 


000140 
003330 
000004 


001410 
177766 


000002 
000040 
000010 
001410 
000042 
001410 
004262 
003432 


TEST 2 


000176 


001134 


000004 


001400 


000041 
001410 
001410 


MACY11 30A(1052) 


gk 3 
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TYPE PROGRAM NAME 


INC #-1 
oe 67% 
.SBTTL fae 
BNE 69$ 
CMP SWR, #SWREG 
BNE 70% 
GTSWR 
BR 70$ 
69$: MOVB #1,SAUTOB 
70$: 
:;68$8: ASCIZ 
67$: 
MOV #DDPCH,RO 
MOV #-14,R1 
18: CLR (RO) + 
INC R1 
BNE 1$ 
INC #-1 
BNE START 
MOV ERRVEC,-(SP) 
MOV #23, ERRVEC 
TST PS 
BR 3$ 
2$: MOV #140, RKPRI 
MOV #3$.,(SP) 
RTI 
3$: MOV (SP)+, ERRVEC 
:FIND OUT IF ACTII, 
START1: MOV #DDPCH,RO 
MOV #-12,R1 
18: CLR (RO) + 
INC R1 
BNE 1§ 
CMPB #2,41 
BNE SsT2 
MOV 40,DDPCH 
CMPB #10,0DPCH 
BHI 2$ 
CLRB DDPCH 
2$: TST 42 
BEQ 4$ 
TST DDOPCH 
BNE 3$ 
JMP $13 
3$: 
TYPE ,65$ 
BR 64$ 


; FIRST is 
: ;BRANCH 


IF 
YPE ASCIZ. STRING 


TYPE 68% ; TY 
GET T VALUE iy SOF TWARE suitch REGISTER 


ARE WE RUNNING UNDER XXDP/AC1? 
;BRANCH IF YE 


S 
SOF TWARE SWITCH REG SELECTED? 
;;BRANCH IF NO 
;;GET SOFT-SWR SETTINGS 


;;SET AUTO-MODE INDICATOR 


;GET OVER THE ASCIZ 


67$ 
<CRLF>/RK11 Logic’ TEST 2/<15><12>/MAINDEC-11-CZRKKF /<CRLF> 


sFIRST START ? 

:BR IF NOT 

;SAVE ERROR VECTOR ADDRESS 
;NEW VECTOR ADDRESS 


:SEE IF PROGRAM CAN —* THE 


;PROCESSOR STATUS WO 

;BR IF REFERENCE DIDN*T CAUSE TRAP 

; SETUP INTERRUPTING PRIORITY TO VALUE 
“WHICH WILL ALLOW INTERRUPT ON AN LSI-11 


:SETUP RETURN ADDRESS 
>RETUSN 

;RESTORE THE ERROR VECTOR 
*XXOP* CHAIM OR DUMP MODE 


;CLEAR OUT DRIVE TABLE AREA 


;LOADED FROM AN RKO5S ? 
:BR IF NOT 
;GET DEVICE INDICATOR AND DRIVE ADDRESS OF 


;LOADING RKO5 


; VALID ~ NUMBER IN BYTE 40 ? 


:BR IF YES 

;MUST BE DRIVE ZERO WHICH LOADED 

; THIS PROGRAM 

;CHAIN MODE OR ACT11 AUTO ACCEPT ? 
:BR IF NEITHER 

ta: ie AN RKO5 ? 


:BR IF Y 
:FIND OUT NUMBER OF DRIVES 


>; TYPE ASCIZ STRING 
;;GET OVER THE ASCI2 


SEQ 0036 


MD-11-CZRKKF, 
CZRKKF .P11 


003510 
003534 
34 


003552 
003636 
003636 
003642 


003736 


003736 


104401 
000431 


104401 
000435 


012700 
012701 
005020 
005201 
001375 
104401 
000415 


104411 


005204 
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001410 


004262 
177777 


003512 


001410 


003554 


003644 


001412 
177765 


003762 


177770 
177400 


000060 


2 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 


Tt «ASCIZ <15><12>/NOT TESTING DRIVE / 


CLR ~(SP) ;CLEAR WORD ON STACK 
MOVB DDPCH, (SP) ;GET DRIVE ADDRESS 
TYPOS ; TYPE THE ADDRESS 
-BYTE 1 ;ONLY 1 CHARACTER 
BYTE 0 ;SUPRESS LEADING ZEROS 
JMP $T3 ;GET NUMBER OF DRIVES 
4$: INC #-1 ;FIRST TIME THROUGH HERE ? 
BNE $T2 :BR IF NOT 


: 3 TYPE ASCIZ STRING 
BR $ ;GET — THE ASCIZ 
::67$: .ASCIZ <15><12>/T0 TEST DRIVE / 


66$: 
CLR - (SP) ;CLEAR WORD ON THE STACK 
MOVB DDPCH, (SP) :GET DRIVE ADDRESS 
TYPOS s TYPE THE DRIVE ADDRESS 


Ore 7 ;ONLY 1 CHARACTER 
-BYTE 0 ;SUPRESS LEADING ZEROS 
TYPE 69% ss TYPE ASCIZ STRING 


BR 6 ;GET OVER THE ASCIZ 
:;69$: .ASCIZ / HALT PROGRAM, REMOVE RKDP PACK AND REPLACE IT/<15><12> 


68$: 

TYPE 71% Piss ASCIZ eit 

BR 70$ ;GET OVER THE ASCIZ 
F 3 Ad eASCIZ /WITH A WORK PACK, CLEAR LOCATION 40, AND RESTART PROGRAM/ 
sFIND OUT FROM USER WHICH DRIVES (LOGICAL ADDRESSES) ARE TO BE 


sTESTED (DRIVES TO BE TESTED 7). IN REPLY THE USER SHOULD TYPE IN THE 
;LOGICAL ADDRESSES SEPERATED BY COMMAS. THUS IF 2 DRIVES 0,1 ARE PRESENT: 


° "DRIVS TO B TSTD?° 
; °"0,1<CR>* A CAR. RET. SHOULD BE TYPED TO TERMINATE THE LIST. 
S12: MOV #DRIVS,RO 
MOV #~1 Ri 
13$: CLR (RO)+ 
INC R1 
BNE 13$ 
TYPE -65$ +s TYPE ASCIZ STRING 


BR 64$ :GET OVER THE ASCI2Z 
a ~ASCIZ <15><12>/DRIVES TO BE TESTED ?/<15><12> 


;GET STARTING ADRES OF ASCII STRING 
;SET UP COUNT 

GET ASCII CHARACTER 

;MASK UNWANTED BITS 


MOV ah al i 


O)+, 
BIC #177400,R2 


2$: CMP R5,R2 ;WAS THE TYPED IN CHARACTER 
;A NUMBER BETWEEN 0-7? 
BEQ 3$ ;YES, BRANCH 
INC R5 ;NO, INCREMENT 
TST (R3)+ ; INCREMENT POINTER TO DRV FLAG 
INC R4 ; CHARACTER THAT WAS INPUT 


SEQ 0037 


MD-11-CZRKKF, 


CZRKKF 


-P11 


004060 


004212 
004214 


004216 
004220 


004222 
004224 
004226 


004252 
004260 


21-FEB-78 0 


001372 
005702 
001461 
104401 
000402 


000716 


001324 


000404 
105720 


005201 


001277 
000717 


005037 


000502 


012737 
000476 


004074 


001412 


177400 
000106 


100000 
000001 


177776 
100001 
000002 
ree 


000054 


001440 
002000 


001344 


000001 


ke BASIC Teeth TEST 2 


177776 


000002 


174676 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 


4$: 


-:67$: 


66S: 
3$: 


118: 


9$: 
10$: 


5$: 


001344 7$: 


BNE 


2$ A BE 0-7, IF ANY OTHER 
TYPE 27? & AGAIN ASK FOR 
“DRIVS TO BE TSTD? 


R2 ;1S IT A TERMINATOR? 

6$ :YES, EXIT. NO DRIVES INDICATED. 
,67$ :;; TYPE ASCIZ STRING 

66$ 3;GET OVER THE ASCIZ 

4277 

ST2 ;GO, AGAIN ASK QUESTION 

ars :SEE IF ALL READY SELECTED 

4% sERROR IF SELECTED ALL READY 

ars ;SET UP FLAG FOR THE DRIVE 
DRIVS : INCREMENT TOTAL NO OF DRIVES PRESENT 
@RO,R2 ;GET NEXT CHAR 

#177400,R2 ; CHARACTER ONLY 

#°F R2 IS IT F? 

8$ :NO, GO ON 

#B1T15,aRr3 :SET BIT s. , 9 SHOW RKOS5F 
#BITO,R5 EVEN DRIVE 

9$ SEVEN DRIVE *s0 BRANCH 

~2(R3) fin oy EVEN ORIVE 


4$ VEN ALL READY SELECTED 
#BIT15!BI1TO, ~2R8)” >SELECT EVEN DRIVE 
10$ NTIN 


; CONTINUE 
2(R3) : CHECK ODD DRIVE 
ERROR IF SELECTED BEFORE 


4$ 
~ aaa 2(R35 ;SELECT ODD DRIVE 
DRIVS ;COUNT DRIVES SELECTED 
(RO)+ ;POINT TO NEXT CH 
11$ ;CHECK FOR COMMA 
#54 ,R2 sIS ITA °C i 
5$ :YES. GO PROCESS NXT WORD 
R2 :NO, IS IT A TERMINATOR? 
4% :1F NOT, SOMETHING WRONG 
: G60 ASK QUESTION AGAIN 
$ sEXIT, IF A TERMINATOR 
(RO)+ : INCREMENT PTR TO NXT BYTE 
: IN INPUT BUFFER 
R1 : THERE SHOULD BE NO MORE THAN 
1$ :8 DRIVES, HENCE IF MORE 
4$ : THAN 8 DIFFERENT NOS. TYPED IN, ERROR! 
: G0 AGAIN ASK THE QUESTION 
SIZYET :NO SIZING NEEDED 
#SW10,aSWR : TESTING ON SIMULATOR? 
7$ : YES, BRANCH 
SIMUL :NO, CLR FLAG 
$14 
Ea :SET FLAG TO INDICATE SIMULATOR 
S 


SEQ 0038 


MD-11~-CZRKKF, 
CZRKKF .P11 


004362 
004364 


004372 


004440 


004442 
004444 


012737 


004737 


000413 
032777 


001407 
104401 


000406 
071603 


3 
004737 


177777 001440 


004442 
175024 
175032 
004534 


177770 
001412 


001414 
174774 
174770 


004356 
021026 


000200 


001412 


020000 


001412 


177776 
021026 
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000004 


000004 


174734 


MACY11 30A(1052) 


we 
— 


2$: 


3$: 


4$: 


5$: 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 


_— = OF DRIVES 


OV #-1 ,SIZYET 
MOV #5$,a#4 
TST @RKDS 
TST @RKDA 
MOV #BADTMO ,a#4 
TYPE 
MSG1 
MOV #-10,R0 
CLR DRIVS 
CLR R1 
CLR R4 
MOV #ORIVO,R2 
MOV R1,@RKDA 
CMP R1,@RKDA 
BEQ 3$ 
MOV #2$,R3 
JSR PC, TYERM 
BR 4$ 
BIT #200, aRKDS 
BEQ 4$ | 
TYPE 
SCRLF 
INC DRIVS 
INC (R2) 

MOV R4,-(SP) 

TYPOC 
TST (R2)+ 
ADD #20000,R1 
INC R4 
INC RO 
BNE 1$ 
TST DRIVS 
BNE 14 
TYPE 
MSG2 
"BR S14 
MOV (SP),R3 
CMP (SP)+, (SP) + 
ADD #-2, R3 
JSR PC, TYERM 


;CHECK FOR RKOSF LATER 
;SET UP ADRES FOR TIME-OUT VECTOR 
;REFERENCE RKDS 


:REFERENCE RKDA 


; INITIALIZE COUNT FOR THE 8 DRIVES 
sINITIALIZE # OF DRIVES PRESENT TO 0 
; INITIALIZE ADDRESS TO DRIVE 0 


;ADDRESS THE DRIVE 
— WAS IT ADDRESSED? 


;WHILE CHECKING NUMBER OF DRIVE 

sUNDER NON-MANUAL MODE :- 

;RKDA HAD TO BE ADRESED BUT 

:1T WAS FOUND THAT THE DRIVE NO 

; THAT WAS WRITTEN COULD NOT BE READ BACK 
; CORRECTLY. 


;CHECK IF *DRY* BIT IS SET, IF SET DRIVE IS 


; PRESENT 


:IF PRESENT, INCREMENT # OF DRIVES 
;SET UP FLAG INDICATING THIS DRIVE PRESENT 


:SHIFT POINTER TO NXT DRIVE INDICATOR 
;SET UP ADDRESS FOR THE NEXT DRIVE 
;HAVE U CHECKED FOR ALL 8 DRIVES 


:GO CHECK THE DRIVE INDEPENDENT 
; CONTROLLER, LOGIC 

;GET PC WHERE TIMEOUT OCCURED 
sRESTORE STACK 


;GO TYPE ERROR MESSAGE 

;WHILE CHECKING FOR THE NUMBER OF 

;DRIVES IN NON-MANUAL MODE:- 

;RKDS AND RKDA HAD TO BE REFERENCED, TIMEQUT 
sOCCURED ON REFERENCING.PC IN THE ERROR 
;MESSAGE INDICATES WHERE THE TIMEQUT OCCURED. 


SEQ 0039 


MD~-11-CZQKKF, 
CZRKKF P11 


POMQMINRIMIM MPM 
at ot ot ot ot 
ed ed etd ot ot od od 


004456 


004506 
004512 
004516 
004524 
004532 


004534 
004536 
004540 
004542 
004546 


004566 
004566 
004570 
004572 
004574 


004624 
004630 


004640 
004640 


005037 
005737 


005037 
005037 
012737 
012777 
000465 


011600 
005740 
022626 
104401 
000407 


010046 
104402 
000000 
000137 


011600 


026004 


104401 
000403 


010046 


001434 
001412 


001352 


001350 


004534 


004600 


604550 


002636 


020000 


004632 
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001354 


000004 
174650 


174326 


MACY11 30A(1052) 


S14: 


1$: 


BADTMO: 


3765$: 
64$: 


BADINT: 


;765$: 
64$: 


B 4 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 


T5GFLG 
DRIVS 


1$ 

PC ,WATIME 
SEOP 
#ORIVO,DRVPTR 


DRVDON 
DRIVAD 


#BADTMO,a#4 
#BADINT ,a@RKVEC 


TST1 


; INITIALIZE THE NO. OF DRIVES 
THAT HAVE BEEN CHECKED 

; INITIALIZE DRIVE ADDRESS TO 
; THE FIRST DRIVE 


;SET TIME OUT VECTOR FOR UNEXPECTED 
; TIME OUTS 

;SET UP RK11 INTERRUPT VECTOR FOR 
SUNEXPECTED INTERRUPTS FROM RK11 


:GO TO TEST 1 


:THIS ROUTINE HANDLES UNEXPECTED TIME OUTS 
bt »RO ;SAVE PC WHERE TIME OUT OCCURED 


MOV 
TST 
CMP 
TYPE 


BR 
-ASCIZ 


MOV 
TYPOC 
HALT 
JMP 


64$ 
<15><12>/TIMOUT, PC=/ 
RO,-(SP) 


@#START 


(SP)+,(SP)+ 
‘y 


sRESTORE STACK POINTER 


3 TYPE ASCIZ STRING 


bel OVER THE ASCIZ 


:SET UP FOR TYPING OUT PC 
;GO TYPE OUT OCTAL PC 


:THIS ROUTINE HANDLES UNEXPECTED INTERRUPTS FROM RK11 
:Sw 9 AND 10 FOR LOOPING ON ERROR 
;AND LOOPING ON TEST IN WHICH TIMEOUT 


sOCCURRED, ARE PROVIDED. 
ot 


=( 


#20000,a 
1$ 


RO,-(SP) 


;SAVE PC WHERE INTERRUPT OCCURED 


; INHIBIT ERROR TYPEOQUT? 
:YES, DON'T TYPE OUT 


: TYPE UNEXPEXTED RK11 INTERRUPT" 
;TYPE ° AT PC= 

:;TYPE ASCIZ STRING 

::GET OVER THE ASCIZ 


;SET UP FOR TYPING OUT PC 


SEQ 0040 


MD~11-CZRKKF, 
CZRKKF P11 


004642 
004644 
004652 
004654 
004656 
004662 
004670 


004672 
004674 


004676 


004702 


004706 


004746 


104402 
032777 
001403 
022626 
000177 
032777 
001401 


000002 
000900 


000137 


004737 


000004 
01270C 


100005 
005710 


001000 


174224 
040000 


002636 


021742 


001414 


001410 
001410 


174400 
174362 
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174266 


174250 


MACY11 30A(1052) 


18: 


2$: 


3$: 


TYPOC 


JMP 


C 4 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 


#1000 ,aSwR 
2$ 


(SP)+,(SP)+ 
@SLPADR 


#40000, aSWR 
3$ 


@# START 


sRESTART AFTER POWER FAIL 


: THE PROGRAM WOULD RESTART HERE 


PFSTRT: JSR 


PC ,WATIME 


IF POWER CAME BACK AFTER A 
KILL TIME 


;GO TYPE OCTAL PC WHERE BAD 

; INTERUPT OCCURED 

;LOOP ON ERROR? 

NO, BRANCH 

;YES, REPOSITION STACK 

;GO TO THE STARTING ADDRESS OF 

; THE TEST THAT GAVE UNEXPECTED INTERRUPT 
;LOOP ON TEST? 

NO, BRANCH 

;YES, LOOP. GO BACK WHER U INTERRUPTED FROM. 
;UNEXPECTED INTERRUPT OCCURED AS 

; INDICATED IN THE TYPE OUT.U CAN LOOP 
;ON ERROR, TEST,OR INHIBIT TYPEOUT BY 
;SETTING APPROPRIATE SWITCHES. 

;GO BACK TO THE START OF THE 
;PROGRAM. THUS PRESSING CONTINUE 
;AFTER THE ABOVE HALT WILL 

;RESTART THE PROGRAM 


FALIURE. 


POR CSC SS II CCITT Stiri tritici iii iiiiiiiiiiitiiiiiiiiiiiiitiit: 
CHECK THAT THE DRIVES THAT ARE NOT SPECIFIED ARE NOT FOUND TO BE PRESENT 
s*THIS TEST CHECKS THAT THE DRIVES THAT ARE NOT SPECIFIED 

s*(IN RESPONSE TO “‘DRIVS TO BE TSTD?°*) ARE NOT FOUND TO BE PRESENT. 
s*EVERY DRIVE FROM 0 TO 7 IS ADDRESSED. IF A PARTICULAR DRIVE 


s*TEST 1 


TST1: 


1$: 


2$: 


s*GIVES "DRY" CIN RKDS), 
s*WAS SPECIFIED BY THE USER, 


IT IS CHECKED THAT THIS DRIVE 
IF IT WAS NOT AN ERROR IS 


> *REPORTED, GIVING THE DRIVE NUMBER. IT IS LIKELY THAT THE USER 
> *MAY HAVE FORGOTTEN TO PUT THE DRIVE (THAT IS NOT SPECIFIED) ON 


>*"LOAD'. 
:*I1F THIS IS NOT THE CASE, THERE IS A GENUINE ERROR. 


IF THIS IS THE CASE THEN PUT THIS DRIVE ON ‘LOAD’. 


(TWO DIFFERENT 


:*DRIVE ADDRESSES MAY BE RESULTING IN THE SELECTION OF THE SAME 
;*PHYSICAL DRIVE.) 


SeeeeReeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeekedeeeeeeeeeeeeeeeere 


SCOPE 


#DRIVO,RO 
R1 

Re 

DDPCH 

2$ 
R2,DDPCH 
4$ 
R1,@RKDA 
@RKDS 

3$ 


aRO 


: INITIALIZE POINTER 
; INITIALIZE DRIVE ADRES 0 


INITIALIZE DRIVE # 0 
:LOADED FROM AN RKOS ? 


:B IF NOT 

;LOADED FROM THIS DRIVE ? 
;BR IF YES 

sADRES THE DRIVE 

;DRIVE READY? 


:NO, THIS DRIVE NOT PRESENT 
YES, THIS DRIVE SELECTED 
;WAS THIS DRIVE SPECIFIED BY 


SEQ 0041 
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CZRKKF P11 21-FEB-78 08:51 T1 CHECK THAT THE DRIVES THAT ARE NOT SPECIFIED ARE NOT FOUND TO BE PRESENT SEQ 0042 
2206 ; THE USER? 
2207 004750 001026 BNE 4$ :YES, OK 
2208 :NO, THIS DRIVE # WAS NOT SPECIFIED 
2209 BY THE USER, BUT STILL IS GIVING 
2210 :"DRY' WHEN ADRESED. REPORT EROR. 
2211 004752 010237 001162 MOV R2,$REGO :GET DRIVE # 
2212 004756 104116 ERROR 116 sTHIS DRIVE # WAS NOT SPECIFIED BY 
2213 : THE USER, BUT WHEN ADRESED GAVE 
2214 :"DRY'. CHECK THAT THIS DRIVE # IF 
2215 :PHYSICALLY PRESENT IS ON ‘LOAD’. IF 
2216 sTHIS IS NOT THE CASE, THEN ONE DRIVE 
2217 ;MAY BE GETTING SELECTED BY TWO DIFFERENT 
2218 ;LOGICAL ADDRESSES. 
2219 004760 005710 3$: TST aro ;CHECK THAT THIS DRIVE WAS NOT INDICATED 
2220 004762 001421 BEQ 4$ :1f IT WAS, & IT IS NOT FOUND TO BE 
2221 PRESENT (DRY CLEAR), REPORT ERROR. 
2222 004764 004737 020774 JSR PC, GT4RG -GET RKCS, ER, DS, DA 
2223 004770 104010 ERROR 10 “DRIVE # (AS IN RKDA) WAS INDICATED BY 
2224 : THE USER, BUT WAS NOT FOUND TO BE PRESENT. 
2225 “CHECK THAT THE ROTARY DRIVE SELECTION 
2226 :SWITCH ON THE MODULE IS SET TO THE RIGHT 
ood DRIVE #. 
2229 004772 005010 CLR aro :THIS DRIVE IS NOT FOUND TO BE PRESENT 
2230 :HENCE DROP IT FROM THE SELECTION TABLE. 
2231 004774 010003 MOV RO.R3 DRIVE ADDR 
2232 004776 162703 001414 SUB #DRIVO,R3 sMINUS OFFSET FOR TABLE 
2233 005002 042703 000603 BIC #3,R3 sEVEN DRIVE OF PAIR 
2234 005006 062703 001414 ADD #DRIVO.R3 :POINT TO EVEN OF PAIR IF RKOS F 
2235 005012 042723 100000 BIC #100000,(R3)+  :NOT SPECIFIED AS F MODEL 
2236 005016 042713 100000 BIC #100000, (R3) > SAME 
2237 005022 005337 001412 DEC DRIVS :DECREMENT DRIVE COUNT 
2238 005026 005202 4$: INC R2 : INCRMNT DRIVE # 
2239 005030 005720 TST (RO)+ : INCRMNT POINTER 
2240 005032 062701 020000 ADD #20000,R1 : INCRANT ADRES TO NXT DRIVE 
geet 005036 001330 BNE 1$ :LUP BAK IF NOT DONE 
2243 
2244 :THIS PART OF THE PROGRAM IS GOING TO BE REPEATED FOR 
one :EACH DRIVE PRESENT 
2247 :"DRIVAD' CONTAINS IN BITS 15,14,13 THE ADDRESS OF THE 
St :DRIVE BEING CURRENTLY CHECKED. 
2250 005040 NUDRV: 
2251 
2252 
2253 STRATA AAA A EAE T AERA AA EAEAAAEAAATEAAAEARAAAAEAAAAAARERERER 
2254 *TEST 2 FIND OUT NEXT DRIVE TO BE CHECKED 
2255 :THIS CODE FINDS OUT THE NEXT DRIVE THAT IS PRESENT AND THEN SETS UP 
2256 : THE ADDDRESS IN DRIVAD (BITS 13,14,15). THUS THROUGHOUT THE FOLLOWING TESTS 
2257 ;THE DRIVE TESTED IS THE DRIVE WHOOSE ADDRESS IS IN "DRIVAD'. 
2258 FF RRARRAE ARERR TAA AAA ERAT TATA ATA AAA AAA AAAARAARAARAEAAAARARARAETAAREEE 
2259 005040 000004 TST2: SCOPE 
2260 005042 012737 000001 001206 MOV #1,STIMES ::;D0 1 ITERATION 


2261 005050 012737 000002 001102 MOV #2, STSTNM ;RESET POINTER TO THIS TEST 
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CZRKKF .P11 21-FEB-78 08:51 T2 FIND OUT NEXT ORIVE TO BE CHECKED SEQ 0043 
2262 3NO. CHANGE THIS (2) IN CASE THE 
2263 ; TEST NO. CHANGES 
2264 005056 005037 001112 CLR SERTTL ;CLEAR TOTAL ERROR COUNT 
2265 005062 005737 001412 TST DRIVS ;R THERE ANY DRIVES PRESENT? 

2266 005066 001002 BNE . +6 ;YES, BRANCH 

2267 005070 000137 020652 4$: JMP SEOP :NO, JMP TO THE END 

2268 005074 013701 001354 MOV DRVPTR,R1 ;GET THAT POINTER TO THE NEXT 
2269 ;DRIVE FLAG 

2270 005100 032721 000001 2s: BIT #BITO,(R1)+ :1S THIS DRIVE PRESENT? 

2271 005104 001005 BNE 1$ ; YES 

2272 005106 062737 020000 001350 68: ADD #20000,DRIVAD ;FORM NXT DRIVE ADRES 

22735 005114 001371 BNE 2% 

2274 005116 000764 BR 4$ 

2275 005120 005737 001410 1$: TST DDPCH ;PROGRAM LOADED FROM AN RKOS ? 
2276 005124 001413 BEQ 3$ ;NO, BRANCH 

2277 005126 013746 6091350 MOV DRIVAD,-(SP) ;PUT TEST DRIVE ADDRESS ON THE STACK 
2278 005132 000316 SWAB (SP) ;SETUP TO RIGHT JUSTIFY THE ADDRESS 
2279 005134 006216 ASR (SP) sRIGHT JUSTIFY THE ADDRESS 

2280 005156 006216 ASR (SP) ;RIGHT JUSTIFY THE ADDRESS 

2281 005140 006216 ASR (SP) ;RIGHT JUSTIFY THE ADDRESS 

2282 005142 006216 ASR (SP) sRIGHT JUSTIFY THE ADDRESS 

2283 005144 006216 ASR (SP) sRIGHT JUSTIFY THE ADDRESS 

2284 005146 122637 001410 CMPB (SP)+,DDPCH ;PROGRAM LOADED FROM THIS DRIVE ? 
2285 005152 001755 BEQ 6$ ;BR IF YES, DON'T TEST THE DRIVE 
2286 005154 010137 001354 3$: MOV R1,DRVPTR ;STORE POINTER TO THE NEXT 

2287 sDRIVE FLAG 

2288 005160 104401 001272 TYPE oMSG4 

2289 005164 013746 001350 MOV DRIVAD,-(R6) :GET THE DRIVE ADDRESS 

2290 005170 004737 021200 JSR PC ,SHFTRT :GO SHIFT IT TO THE RIGHT 

2291 005174 005037 001404 CLR FFLAG 

2292 005200 011600 MOV (R6) ,RO ;DRIVE NUMBER 

2293 005202 104403 TYPOS :GO TYPE THE OCTAL # FOR THE 

2294 sDRIVE THAT IS BEING CHECKED 
2295 005204 001 000 OYTE 1,0 

2296 005206 006300 ASL RO 7 INDEX TO TABLE 

2297 005210 005760 001414 TST DRIVOCRO) :SEE IF F 

2298 005214 100006 BPL 5$ :NO 

2299 005216 104401 005224 TYPE ,65$ 7; TYPE ASCIZ STRING 

2300 005222 000401 BR 64$ ::GET OVER THE ASCIZ 

2301 53658: .ASCIZ /F/ 

2302 005226 64$: 

2303 005226 005237 001404 INC FFLAG ;SET F FLAG 

2304 005232 104401 5$: TYPE 

2305 005234 001213 SCRLF ; TYPE CR, LF 

2306 PURER AERA RAAT AAA AAA CAAR AAA TAAAEAAAAAEAARAARERAARARAREERERAEEEE 
2307 i*TEST 3 CHECK THAT DRIVE IS SUPPLIED WITH POWER-DPL BIT 
2308 SERRE AERA AAA TA RATER ERAAAAAEAAAAA HERA AARARARAAAAAARET REE 
2309 005236 000004 TST3: SCOPE 

2310 005240 104413 CNT.RESET :G0, DO CONTROL RESET 

2311 ;THIS IS A CALL FOR THE ‘CNTRL- 


2 RESET’ ROUTINE. A CONTROL RESET IS 
7 ; ISSUED AND AFTER A CERTAIN TIME 

4 IF THE ‘CNTRL RDY* DOES NOT SET 

5 ;AN ERROR IS REPORTED. NOTE THAT 

6 ; THE PC IN ERROR MESSAGE IS THE 

7 ;PC WHERE ‘CNT.RESET’ IS LOCATED. 


MD~11-CZRKKF, 


CZRKKF .P11 21-FEB-78 0 CHECK THAT DRIVE IS SUPPLIED WITH POWER-DPL BIT 
2318 :THIS IS A VERY BASIC ERRE& IF IT 
2319 ;OCCURS GO BACK TO TEST 10 
2320 005242 013700 001326 MOV RKDS,RO 
23521 005246 013777 001350 174064 MOV DRIVAD ,@RKDA ;ADDRESS THE DRIVE UNDER TEST 
2322 005254 005710 TST arO :;CHECK IF ANY BIT OF RKDS IS SET? 
2323 005256 001003 BNE 1$ :1F SET, BRANCH 
23524 005260 011037 001162 MOV @RO,$REGO :GET RKDS 
2325 005264 104004 ERROR 4 ;RKDS ERROR! RKDS IF ADDRESSED 
2326 : CORRECTLY SHOULD BE NON-ZERO 
2327 005266 012777 000015 174036 18: MOV #15,aRKCS ; ISSUE A DRV RESET, IF DRVE 
2328 ;POWER IS LO, DPL WILL SET 
2329 005274 005001 CLR R1 
2330 005276 032710 010000 2$: BIT #10000,aR0 :1S "DPL’ BIT SET? 
2331 005302 001003 BNE 3$ :DPL IS SET, BRANCH 
2332 005304 005201 INC R1 sWAIT FOR SOME TIME TO 
2333 005306 001373 BNE 2$ :SEE IF DPL WOULD SET 
2334 005310 000403 BR 4$-2 :OK, DPL NOT SET 
2335 005312 004737 021002 3$: JSR PC, GT3RG :GO, GET RKCS, ER, DS 
Sea 005316 104005 ERROR 5 :DPL BIT OF RKDS IS SET, CHECK DRIVE POWER 
2338 
2339 605320 005001 CLR R1 
2340 005322 032710 000100 4$: BIT #100,aR0  gDID R/W/S RDY BIT SET? 
2341 005326 001010 BNE TST4 ZsVEs. T 
2342 005330 104417 000011 DELAY Pe TIME DELAY 
2343 005334 005201 INC R1 SWAIT FOR R/W/S RDY 
2344 005336 001371 BNE 4$ 
2345 005340 017737 173762 001162 MOV @RKDS , SREGO ;GET RKDS 
2346 005346 104016 ERROR 16 7R/W/S RDY DID NOT SET AFTER 
2347 :DRIVE RESET. DRIVE RESET WAS DONE 
2348 :TO CHECK ‘DPL°BIT . THIS TEST 
2349 ;1S NOT FOR CHECKING DRIVE RESET. 
2350 :U MIGHT WANT TO USE THE TEST PROVIDED 
a4 :FOR CHECKING DRIVE RESET. 
2353 s RRA ATERER TATA TERE RATA KAA AAAATAAERAARERARRARERRARAAAEE EE 
2354 i*TEST 4 CHECK THAT ‘DRIVE UNSAFE’ IS CLEAR, ‘HDEN’ IS SET, ‘WPS* IS CLEAR 
2355 cP ERAAAAAAARA AAA ETE TA TATE TER ATAA AAA ATARAAAAAAEAAAARERAERARAEEE ES 
2356 005350 000004 TST4: SCOPE 
2357 005352 104413 CNT.RESET :;GO0, DO CONTROL RESET 
2358 :THIS IS A CALL FOR THE ‘CNTRL- 
2359 ;RESET* ROUTINE. A CONTROL RESET IS 
2360 ; ISSUED AND AFTER A CERTAIN TIME 
2361 :1F THE ‘CNTRL RDY* DOES NOT SET 
2362 :AN ERROR IS REPORTED. NOTE THAT 
2363 ; THE PC IN ERROR MESSAGE IS THE 
2364 :PC WHERE "CNT.RESET® IS LOCATED. 
2365 sTHIS IS A VERY BASIC ERR @ IF IT 
2366 ;OCCURS GO BACK TO TEST 10 
2367 005354 013777 001350 173756 MOV DRIVAD,@RKDA :SET DRIVE ADDRESS 
2368 005362 017700 173740 MOV @RKDS,RO :GET RKDS 
2369 005366 032700 002000 BIT — RO :1S 'DRU' BIT OF RKDS SET? 
2370 005372 001403 BEQ NO 
2371 005374 004737 021002 JSR bg GT3RG ‘60, GET RKCS, ER, DS 
2372 005400 104006 ERROR 6 : *DRU' BIT OF RKDS IS SET, CHECK 


RK11 BASIC ih TEST 2 


MACY11 30A(1052) 
13 


F 4 
21-FEB-78 08:58 PAGE 45 


;ORIV BY PUTTING RUN/LOAD SW TO LOAD 


MD-11~-CZRKKF, 
CZRKKF .P11 


005402 


005416 
005420 


005434 


005436 
005440 


005442 
005450 
005454 
005456 
005462 


005464 


005520 


032700 
001004 
017737 
104007 


032777 
001403 
004737 
104114 


000004 
104413 


013777 
105777 
100403 
004737 
104010 


000004 


104011 
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004000 
173712 


000040 
020774 


001350 
173652 


020774 


001350 
000400 


173610 


TEST 2 


001162 


173700 


173670 


173644 
173622 


001162 


G 4 
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CHECK THAT “DRIVE UNSAFE’ IS CLEAR, ‘HDEN’ IS SET, 


; THEN BACK TO RUN 


‘WPS’ IS CLEAR 


1$: BIT #4000 RO :1S "HDEN® BIT SET? 
BNE 2$ s YES, — 
MOV @RKDS, SREGO ;GET RKDS 
ERROR 7 ERROR, ‘RKOS' BIT IS NOT SET 
2s: BIT #40,aRKDS iTS "WPS' CLEAR? 
BEQ TST5 YES, EXIT 
JSR PC ,GT4RG GET RKCS, ER, DS, DA 
ERROR 114 :'WPS*=WRITE PROTECT STATUS- BIT OF 


:;OF RKDS SHOULD BE CLEAR, IF THIS DRIVE 
;1S WRITE ENABLED. CHECK & SEE IF THIS 
;DRIVE IS WRITE ENABLED, IF IT IS NOT, 
;WRITE ENABLE IT. 


@ 
FF RARER AERA K EKA AAA ER AA AAA ATTRA ETE AAAAAAEAAARAAEEEAEREKRAEKKKEREE 


s*TEST 5 CHECK THAT "DRIVE READY’ IS SET IN RKDS 


SF RRA AERA AAR ERE AEA AAA ERATE AAA EEARAAEEEAREKEEEERKEAEES 


TST5: SCOPE 
CNT.RESET :GC, DO CONTROL RESET 

;THIS IS A CALL FOR THE ‘CNTRL- 
;RESET* ROUTINE. A CONTROL RESET IS 
: ISSUED AND AFTER A CERTAIN TIME 
: IF THE *CNTRL RDY* DOES NOT SET 
;AN ERROR IS REPORTED. NOTE THAT 
;THE PC IN ERROR MESSAGE IS THE 
PC WHERE "CNT.RESET® IS LOCATED. 
:THIS IS A VERY BASIC ERR @ IF IT 
;OCCURS GO BACK TO TEST 10 


“OV DRIVAD ,@RKDA sADDRS THE DRIVE 


TSTB @RKDS iTS "DRY" SET? 

BAI TST6 YES, OK 

JSR PC, GT4RG 60, GET RKCS, ER, DS, DA 
:"DRY’ NOT SET 


ERROR 10 


MPITTTIIIIITITII LITT LIL TLiTi iit t Tlie 
;*TEST 6 CHECK THAT ‘SOK’ BIT CAN SET 

:* THIS TEST CHECKS THAT WITHIN A CERTAIN TIME 

;* "SOK" BIT CAN SET, IF IT DOES NOT AN ERROR IS REPORTED 


eeeeeReEReReReReeeeeeeeeeeeeenteneteeeeeekeeereneneeeeterteeeee 


1516: SCOPE 

MOV DRIVAD ,@RKDA ;ADDRS THE DRIVE 

CLR R1 ; INITIALIZE COUNT FOR TIMING WAIT LOOP 
1$: BIT #400 ,aRKDS :1S SOK SET? 

BNE TST? > EXIT 

INC R1 NO, WAIT 

BNE 1$ ‘MATTED LONG? 

MOV @RKDS , SREGO ;GET RKDS 

ERROR 11 ao LONG BUT “SEC OK" BIT DID NOT 


SRE RAAAAER AAA AAA AAA AAA RAK ARE RAAT ERA AARARARERERERRERE EE 


s*TEST 7 CHECK THAT ‘SECTOR COUNTER’ CAN COUNT FROM 0-15 


SEC 0045 


MD-11-CZRKKF, 
CZRKKF P11 


005522 
005524 


005526 


005544 
005546 
005552 
005556 
005562 
005566 
005570 
005574 


005576 


005616 
005620 


005632 


000004 
104413 


013777 


005005 


012704 
012703 


005037 


005237 
001440 
005237 
001441 


011001 


042701 
001357 


005204 
001447 
005205 
007431 
011002 
032702 


001350 
001326 
001356 


177764 
000001 


001360 
001356 
001360 


000400 


177760 


000406 
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173604 


ei 30A(1052) 


8 


1$: 


3$: 
4$: 


ea ee#etee#e#eeea&e8ee*s*s 


* 


1) FIRST, 


H 4 
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CHECK THAT “SECTOR COUNTER’ CAN COUNT FROM 0-13 


THE PROGRAM WAITS 


ants TEST CHECKS THAT THE SECTOR COUNTER CAN COUNT FROM 


FOR INITIALIZING PURPOSES THERE IS A TIMED LOOP 
DURING WHICH SECTOR COUNTER SHOULD COUNT DOWN TO 0. 
IS NOT DONE AN ERROR IS REPORTED 
2) AFTER A COUNT OF O IS REACHED, 
FOR A CERTAIN TIME, DURING WHICH THE SEC COUNTER 
IS SAMPLED. 


IF THIS 


IF THE COUNTER DOES NOT CHANGE WITHIN THIS 


TIME PERIOD AN ERROR IS REPORTED. 
3) UPON FINDING THAT THE COUNTER HAS CHANGED, 
IF IT INCREMENTED CORRECTLY. 


IT IS 


(STEPS 2,3,4 ARE REP 


CHECKED 

IF IT DID NOT AN ERROR IS REPORTED 
4) IF IT INCREMENTED CORRECTLY, THE PROGRAM AGAIN WAITS IN A 
LOOP TILL THE COUNTER CHANGES. 
TILL THE COUNTER COUNTS UP TO 13) 


EATED 


SRR ATER ATTA AAA AE SEHR AEAAATAAAAKAEKAAAAEREES 


17: SCOPE 
CNT.RESET :G0, DO CONTROL RESET 
:THIS IS A CALL FOR THE ‘CNTRL- 
sRESET' ROUTINE. A CONTROL RESET IS 
: ISSUED AND AFTER A CERTAIN TIME 
:1F THE "CNTRL RDY’ DOES NOT SET 
:AN ERROR IS REPORTED. NOTE THAT 
: THE PC IN ERROR MESSAGE IS THE 
:PC WHERE "CNT.RESET' IS LOCATED. 
:THIS IS A VERY BASIC ERR & IF IT 
:OCCURS GO BACK TO TEST 10 
MOV DRIVAD,@RKDA 
MOV RKDS, : INITIALIZE 
CLR INDX1 :"COUNT' = TO TIME ‘ERROR 35' 
CLR RS s INITIALIZE ‘COUNT’ - TO TIME 
: "ERROR 36° (WAIT LOOP) 
MOV #-14,R4 INITIALIZE ‘COUNT’ - FOR THE 12 SECTORS. 
MOV #1,R3 :R3 CONTAINS THE "NEXT’ COUNT OF SEC-CNTR 
:R1 CONTAINS THE "PREVIOUS" COUNT OF SEC-CNTR 
:R2 CONTAINS THE ‘PRESENT’ COUNT OF SEC-CNTR 
CLR INDX2 s INITIALIZE ‘COUNT’ - TO TIME 
(WAIT LOOP) “ERROR 34° 
INC INDX1 :KEEP TIMING FOR ‘ERROR 35° 
BEQ 6% :BRANCH & REPORT ERROR IF WAITED LONG? 
INC INDX2 KEEP TIMING FOR "ERROR 34' 
BEQ 7$ BRANCH & REPORT ERROR IF WAITED LONG? 
MOV aRO,R1 :GET RKDS 
BIT #400,R1 :1S ‘SOK’ SET? 
BEQ 2$ :NO, WAIT FOR IT TO SET 
CMP @RO,R1 MAKE SURE THAT 2 CONSECUTIVE 
BNE 1$ READINGS OF SEC-CNTR ARE SAME 
BIC #177760,R1 :YES, MASK OUT NON-SEC CNTR BITS 
BNE 1$ :1S IT SECTGR 0, IF NOT LOOP BACK & 
WAIT FOR SECTOR 0 
INC R4 KEEP TRACK OF SECTORS CHECKED 
BEQ TST10 : EXIT, IF ALL SECTORS CHKD 
INC R5 KEEP TIMING FOR ‘ERROR 36° 
BEQ 8$ :BR & REPORT ERROR IF WAITED LONG 
MOV aRO,R2 :GET RKDS 
BiT #400,R2 1S SOK SET? 


SEG 0046 


MD~11-CZRKKF, 
CZRKKF .P11 


005636 


005670 
005674 


005676 


005700 
005706 


005710 
005712 
005716 
005722 
005724 
005726 


005732 
005736 


005740 


005742 
005744 


005746 


001772 


001023 
005203 


000754 


010137 
104012 


000421 


017737 
104011 


000414 
010237 
010357 
104013 
000406 
010337 


010237 
104014 


000747 


000004 
104413 


013704 


177760 


001162 


173422 


001162 
001164 


001162 
001164 


001350 
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001162 
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17 CHECK THAT "SECTOR COUNTER’ CAN COUNT FROM 0-13 


;NO, WAIT FOR SOK 

;MAKE SURE THAT 2 CONSECUTIVE 
;READINGS OF SEC-CNTR ARE SAME 
;MASK NON-SEC-CNTR BITS 

sHAS SEC CNTR INCREMENTED? 

;NO, WAIT FOR IT TO CHANGE 

:YES, DID IT INCREMENT CORRECTLY? 
;NO = REPORT ERROR 


; INCREMENT “'NEXT COUNT'’ 

; INCREMENT “‘PREVIOUS COUNT’’ 

; INITIALIZE AGAIN FOR TIMING ‘ERROR 36° 
;GO & CHECK THE NEXT SECTOR COUNT 


;GET ‘SEC CNTR‘ 


5$: 


6$: 


7$: 


8$: 


9$: 


1 4 
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4% 
@RO,R2 
4$ 


+i 


4% 
R2,R5 
9% 


R1,$REGO 
12 


TST10 
_— 


TST10 


R2,$REGO 
R3,S$REG1 
13 


TST10 


R3,$REGO 
R2,SREG1 
14 


5$ 


SEQ 0047 


;WAITED LONG, BUT SECTOR COUNTER 
+ COUNT TO 0 
73 Ex 


:GET RKDS 
;WAITED LONG, BUT ‘SOK’ BIT DID 
sNOT SET 


s sBuat 


;GET SEC CNTR (PRESENT COUNT) 

GET “'NEXT COUNT’’ 

;WAITED LONG, BUT THE SECTOR 

; COUNTER DID NOT INCREMENT FROM 

; THE — COUNT TO THE NEXT COUNT 


;GET “NEXT COUNT’ (SEC CNTR SHOULD BE THIS) 
;GET PRESENT COUNT (WHAT SEC CNTR WAS) 

;SEC CNTR INCREMENTED WRONG, DID 

;NOT INCREMENT FROM PRESENT COUNT 

:TO NEXT COUNT 


FFARR AAA AEA EEE AAT ATER RAAA RARER ERRATA AERA 


CHECK THAT SC=SA CAN BE GENERATED 


s*TEST 10 


$110: 


;* THIS TEST CHECKS THAT SC=SA CAN BE GFNERATED FOR 
;* EVERY SECTOR 


PITITITITITITILITTI ITLL TILT LLL LLL 


SCOPE 
CNT.RESET 
MOV DRIVAD,R4 


:GO, DO CONTROL RESET 

;THIS IS A CALL FOR THE "CNTRL- 
;RESET’ ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
;1F THE “CNTRL RDY' DOES NOT SET 
;AN ERROR IS REPORTED. NOTE THAT 
;THE PC IN ERROR MESSAGE IS THE 

;PC WHERE 'CNT.RESET’ IS LOCATED. 
;THIS IS A VERY BASIC ERR @ IF IT 
;OCCURS GO BACK TO TEST 10 


MD~11-CZRKKF, 
CZRKKF .P11 


2597 


005752 
005756 


006012 
006014 
006020 
006024 


006026 


006030 


006106 


RK11 BASIC LOGIC TEST 2 
21-FEB-78 08:51 


013700 
012703 
010477 
005005 
005205 
001410 
011001 
032701 
001772 
005204 
005203 
001364 
000406 


110437 
010137 
104015 


060766 


000004 


104001 


006110 000004 


001326 
177764 
173352 


000020 


001162 
001164 


001350 


173256 
000100 


001162 
001000 
020774 


173276 


J 4 
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710 CHECK THAT SC=SA CAN BE GENERATED SEQ 0048 
MOV RKDS,RO 
MOV #-14,R3 ; INITIALIZE COUNT FOR # OF SECTORS 
1$: MOV R4,@RKDA ; ADDRESS THE DRIVE 
CLR R5 ; INITIALIZE COUNT - FOR TIMING ERROR 
2s: INC R5 ;KEEP TIMING FOR ERROR 
BEQ 3$ sREPORT ERROR IF WAITED LONG 
MOV @RO,R1 ;GET RKDS 
BIT #20,R1 :1S SC=SA SET? 
BEQ 2$ :NO, WAIT FOR IT 
4$: INC R4 ;ADDRS THE NEXT SECTOR 
INC R3 ARE ALL SECTORS CHECKED FOR SC=SA 
BNE 1$ ;NO, GO & CHECK NEXT 
BR TST11 73 YES, EXIT 
3$: MOVB R4,$REGO ;GET SECTOR ADDRESS 
MOV R1,$REG1 ;GET RKDS 
ERROR 15 :COULD NOT GET SC=SA FOR THIS 
; "SECTOR ADDRESS‘ 
BR 4$ :GO CHK FOR THE REST 


STREAKS RARER AERA EAE EEE EEEEEEAAEAAKAAREEEAAEAEAAEKEHEKEE 


seTEST 11 CHECK THAT ‘k/W/S RDY’® IS SET & "SIN’ IS CLEAR 
ST RAAAAAARSERA AKER AEAA ARATE AAA AEE EERE KEKREEEKEEE 
TST11: SCOPE 
CNT.RESET :G0, DO CONTROL RESET 
og — ,@RKDA sADDRESS THE DRIVE 
1$: MOV @RKDS RO :GET RKDS 
BIT #100,R0 :1S R/W/S RDY SET? 
BNE $ : YES, BRANCH 
3$: INC R1 : INCREASE LOOP TIME 
BNE 3$ ;FOR DRIVE RESET OF HEADS 
INC R1 ;WAITED LONG ENOUGH? 
BNE :1F NOT LUP BAK & WAIT 
MOV RO, $REGO :GET RKDS 
ERROR :R/W/S RDY SHOULD BE SET 
2$: BIT #1000,R0 :1S SIN CLEAR? 
BEQ TST12 7: YES, EXIT 
JSR PC .GT4RG GET RKCS, ER,DS.DA 
ERROR 7 "SIN" SHOULD HAVE BEEN CLEAR 
:1T WAS NOT CLEAR 
:NEXT TEST IS GOING TO CHECK 
;ORIVE RESET, SIN SHOULD BE 
:CLEARED THEN. IT WILL BE CHECKED 
; THERE. 
FT RRA AREA AREER ETAT ECAR AREA AAA RARER RAR RAAAAARARA RAH AEE 
:*TEST 12 CHECK ‘DRIVE RESET‘ 


;*THIS TEST CHECKS THE VERY BASIC DRIVE RESET LOGIC. 

;*SINCE THE HEADS ARE AT CYLINDER 0 (GOING INTO THIS 

:*TEST) DRIVE RESET RETRACTS THEM BACK BEYOND CYLINDER 0, 
:*AFTER WHICH THEY ARE PUSHED FORWARD TO CYLINDER 0 AGAIN. 
;tIN THE LATER PART OF THIS PROGRAM THERE IS A DRIVE RESET 
s*TEST WHICH DOES THE RESET FROM LAST CYLINDER. 


PETITITITITILIIITLLI TLL LLL LLL LLL 


TST12: SCOPE 


MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2 


CZRKKF 


2599 


-P11 


006114 
006120 
006122 
006130 
006134 


006136 


006140 


006212 
006214 
006220 
006222 
006226 
006230 
006234 
006236 


006244 
006250 


013700 
005004 
013777 
012710 
104412 


104021 


012705 
032777 


104026 


032777 
001403 
004737 
104001 


032710 
001403 
004737 
104022 


022710 


001406 
072737 
011037 
104024 
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foe 006112 104413 


001332 


001350 
000015 


177776 
000100 


006176 


020774 


001000 


020774 


140000 
020774 


000214 


000214 
001164 


173210 


173154 


173122 


001162 


MACY11 3 
T12 


23: 
6$: 


3$: 


4$: 


kK 4 
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CHECK "DRIVE RESET‘ 
CNT.RESET :G0, DO CONTROL RESET 
;THIS IS A CALL FOR THE 'CNTRL- 
:RESET' ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
;1F THE ‘CNTRL RDY' DOES NOT SET 
:AN ERROR IS REPORTED. NOTE THAT 
:THE PC IN ERROR MESSAGE IS THE 
sPC WHERE 'CNT.RESET' IS LOCATED. 
:THIS IS A VERY BASIC ERR & IF IT 
;OCCURS GO BACK TO TEST 10 


; INITIALIZ COUNT = TO TIME ERROR 
; ADDRESS THE DRIVE 
; "DRIVE RESET’, GO 


MOV ~ il 


R 
MOV DRIVAD,@RKDA 
MOV #15,aR0 


CHKCRDY :;GO CHECK IF CONTROL RDY IS SET 
:1F SO, SKIP THE EROR MESSAGE. 

ERROR 21 ;CNTRL RDY DID NOT SET AFTER 
;SENDING CYL ADDR TO THE DRIV. 
; "ADD ACK’ SHOULD HAVE COME BACK 
:FROM DRIVE, THEREUPON SETTING ‘CN RDY' 

MOV #-2,R5 :SET UP DELAY COUNTER 

BIT #100,aRKDS ;CHECK FOR R/W/S READY 

BEQ . +6 

JMP 3$ 

INC R4 

BNE 6$ 

INC R5 

BNE 

JSR PC,.GT4RG :G0, GET RKCS, ER, DS, DA 

ERROR :R/W/S RDY DID NOT SET AFTER 


:DRIVE RESET 


BIT #1000, aRKDS ;DID SIN SET? 


BEQ 5$ 7NO, BRANCH 

JSR PC. GT4RG :G0, GET RKCS,ER.DS.DA 

ERROR 1 sSIN SET, AFTER A 
sDRIVE RESET. 

BIT #140000 ,aR0 :WAS "ERR' BIT OR ‘HE’ BIT SET? 

BEQ 4$ NC 

JSR PC, GT4&RG :G0, GET RKCS, ER, DS. DA 

ERROR 22 :"ERR® OR ‘HE’ BIT SET WHILE DOING 
sORIVE RESET 

CMP #214,aR0 :DOES RKCS STILL CONTAIN THE 
:"DRIV RES' BITS 

BEQ TST13 ssVES, 8X17 


MOV #214,$REGO 
MOV ee 


;GET EXPCTD RKCS 

;GET RKCS, RECVD 

;NO = RKCS SHOULD CONTAIN THE ‘DRIV RES‘ 
;FUNCTION, ERROR IF DIFFERENT. 


SARA AAA ERA A TATA AERA KAA ATA ARATA AAA TERRA KAAAAAAAAARAAAARARARE 


s*TEST 1 


3 CHECK "SEEK' TO CYLINDER 0 
;* THIS TEST CHECKS THE SEEK LOGIC DOING SEEK TO CYLINDER QO. 
;* NOTE THAT SINCE THE HEADS ARE ALREADY ON CYLINDER 0, NO 


;* HEAD MOVEMENT IS INVOLVEDN AND THE STRESS IS ON THE BASIC SEEK » 


>* LOGIC. 


aes 


SEG 0049 


MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2 
CZRKKF .P11 


006252 
006254 


006256 


006260 
006264 


006272 
006276 


006300 


006302 


006342 


006344 
006350 


006352 
006356 


006372 
006374 
00 


000004 
104413 


104421 


013700 
013777 


012710 
104412 


104021 


005005 


104001 


032710 
001403 


004737 
104022 


005777 
001403 
004737 
104023 


022710 
001406 
012737 
011037 
104024 
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001332 
001350 


000011 


000100 


020774 
001000 
020774 


140000 


020774 


172744 
021602 


000210 


000210 
001164 


173046 


173014 


172772 


601162 
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CHECK *SEEK' TO CYLINDER 0 


'WEeRARBBBBRBRBRBRBBRARRBRRBRRBRRSARRRRRERRRBRRRRRARARRRRRRR RRR RRR EERE SESS SO 


TS113: 


2$: 


6$: 


4$: 


SCOPE 

CNT.RESET 

TST.SIN 

MOV RKCS,RO 
MOV DRIVAD,@RKDA 
MOV #11,aR0 
CHKCRDY 

ERROR 21 

CLR R5 

BIT #100,aRKDS 
BNE 3$ 

INC R5 

BNE 2$+2 

JSR PC,GT4&RG 
ERROR 26 

BIT #1000, aRKDS 
BEQ 6$ 

JSR PC, GT4RG 
ERROR 1 

BIT #140000,aR0 
BEQ 4$ 

JSR PC, GT4RG 
ERROR 22 

TST @RKER 

BEQ 5$ 

JSR PC,GT3RG 
ERROR 23 

CMP #210,aR0 
BEQ TST14 

MOV #210,$REGO0 
MOV @RO,$REG1 
ERROR 24 


:GO, DO CONTROL RESET 

;THIS IS A CALL FOR THE ‘CNTRL- 
RESET’ ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
; IF THE ‘CNTRL RDY' DOES NOT SET 
;AN ERROR IS REPORTED. NOTE THAT 
;THE PC IN ERROR MESSAGE IS THE 
PC WHERE ‘CNT.RESET’ IS LOCATED. 
;THIS IS A VERY BASIC ERR @ IF IT 
;OCCURS GO BACK TO TEST 10 

:GO CHECK IF SIN SET. IF SET 

;A 00 DRIVE RESET TO CLEAR IT 


; ADDRESS THE DRIVE 


;*SEEK* GO 

;GO CHECK IF CONTROL RDY IS SET 

;1F SO, SKIP THE EROR MESSAGE. 

;"CNTRL RDY® DID NOT SET AFTER SENDING 
;CYL ADDR TO THE DRIVE, ‘ADD ACK’ 
;SHOULD HAVE COME BACK FROM THE 
:DRIVE, THEREUPON SETTING ‘CNTRL RDY' 


:D1D R/W/S RDY BIT SET? 
;YES, BRANCH 

:WAITED LONG ENOUGH? 

:1F NOT, LUP BAK & WAIT 
:GO, GET RKCS, ER, DS, DA 
;R/W/S RDY DID NOT SET AFTER SEEK 
:DID SIN SET? 

:NO, BRANCH 

:G0, GET RKCS,ER,DS.DA 
7SIN SET ON DOING SEEK 

:TO CYL O NOTE THIS IS THE 
sFIRST TIME THE HEADS HAVE 
;BEEN MOVED 


;WAS ‘ERR® OR ‘HE’ BIT SET? 

:GO, GET RKCS, ER, DS. DA 

:"ERR' OR ‘HE’ BIT SET WHILE DOING ‘SEEK* 
‘oa ANY BIT IN RKER SET? 

;N 


“GO, GET RKCS, ER, DS 
“RKER SHOWS AN ERROR BIT, CHECK 


: DOES y iaen CONTAIN ‘SEEK FUNCTION 
ee x 


73 YES, 

;GET EXPCTD RKCS 

;GET RKCS RECVD 

;NO, RKCS SHOULD BE STILL CONTAINING 

; SEEK’ FUNCTION ERROR - IF IT CHANGED 


SEQ 0050 


MD-11-CZRKKF, 
CZRKKF .P11 


006416 
006420 


006422 


006500 


006502 
006506 


000004 
104413 


104421 


004737 
104026 


005005 


104025 


004737 
104016 


021504 


001350 
000100 
001326 
000011 
000100 


021002 


021436 
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172676 
172670 


172650 
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s*TEST 14 


Mm 4 
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113 CHECK "SEEK* TO CYLINDER 0 


; 
SF RRARARAAATATAAAAAAAEAAAAEKAAARAAH AREER ARERR Ae 


CHECK R/W/S RDY IS CLEAR WHEN HEADS ARE IN MOTION 


:*THIS TEST CHECKS THAT R/W/S DOES GET CLEARED 


;*WHEN THE HEADS ARE 


IN MOTION. SINCE 


"MOVE L‘ O 


;*M7700 (RKOS) GENERATES THIS SIGNAL, ABSENCE OF 
:*R/W/S RDY-CLEAR COULD cree A FAULT ON M7702 


;*WHERE "MOVE L* 


1S GENERA 


TED. 
;*NOTE THIS is” THE FIRST TIME HEADS ARE MADE TO MOVE BY SEEKING 


:*TO CYLINDER 2. 


jolene emanpanenroesronnsncaninesantannmneneannenadanerenenenan 


TST14: SCOPE 
CNT.RESET 
TST.SIN 
JSR PC ,DRESET 
ERROR 26 
CLR R5 
MOV DRIVAD ,@RKDA 
BIS #100 ,aRKDA 
MOV RKDSR1 
MOV #11,a@RKCS 
BIT #100,aR1 
BEQ 2$ 
INC R5 
BPL 1$ 
JSR PC,GT3RG 
ERROR 25 

2$: JSR PC,TSTRWS 
ERROR 16 


;*TEST 15 


:G0, DO CONTROL RESET 
>THIS IS A CALL FOR THE 
RESET’ ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A 
;1F THE ‘CNTRL RDY’ DOES NOT SET 
;AN ERROR IS REPORTED. NOTE THAT 
;THE PC IN ERROR MESSAGE IS THE 
;PC WHERE ‘CNT.RESET’ IS LOCATED. 
:THIS IS A VERY BASIC ERR @ IF IT 
sOCCURS GO BACK TO TEST 10 

;€O CHECK IF SIN IS SET 

:1F SET DO DRV-RESET TO CLR IT 
;MAKE SURE HEADS R ON CYL 0 
sR/W/S RDY DIDN'T SET 

:AFTER THE ABOVE DRV RESET 


*CNTRL- 
CERTAIN TIME 


sSEEK CYLINDER 2 


;SEEK, GO 
:DID R/W/S RDY CLR? 
: YES, BRANCH 


:R/W/S RDY WAS NOT CLEAR WHEN HEADS 
;WERE SEEKING TO CYLINDER 2 


:GO, WAIT FOR R/W/S RDY TO SET 
;R/W/S RDY DID NOT SET AFTER SEEK 
sWAS TRIED TO CYLINDER 2 (ABOVE). 
;NOTE THIS WAS THE FIRST TIME A SEEK 


;WAS TRIED TO A CYLINDER OTHER THAN 


ERRATA AAA AAA TATA AAA TATA AAA ATA TAA AAA AA AAA RAR AERA AEA RAE 


CHECK ‘WRITE’ FORMAT FUNCTION-CYLINDER 0, SECTOR 0 


;*THIS TEST CHECKS THE LOGIC INVOLVED IN THE WRITE FMT 

:*FUNCTION. ON ISSUING A WRT FAT, THE FOLLOWING IS CHECKED 

;*1) CNTRL RDY WAS CLEARED AS GO WAS SET. 

:*2) CNTRL RDY SETS WITHIN A CERTAIN TIME ON COMPLETION OF FUNCTION 


SEQ 0051 


MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2 
CZRKKF .P11 


006510 
006512 


006514 
006516 


006522 
006526 


006544 


000004 
104413 


104421 
012703 


012700 
010023 


072713 


012703 
013701 
013702 
010312 
012777 
013777 
012711 


105711 
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033342 


000001 


000200 


125252 


033342 
001332 
001336 


177400 
001350 
002003 


N 4 
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T15 CHECK ‘WRITE’ FORMAT FUNCTION-CYLINDER 0, SECTOR 0 


IF ‘HE* OR ‘ERR’ BIT SET? 


9$: 


1$: 


TST15: 


; #8) 


IF RKDA INCREMENTED CORRECTLY +ROM 0 TO 1? 
IF RKWC OVERFLOWED CORRECTLY TO 0? 


IF RKBA INCREMENTED CORRECTLY BY 2? 
IF ANY BIT IN RKER SET? 
; IF THE "WRT FAT’ FUNCTION BITS ARE STILL IN THE RKCS? 
;*NOTE THAT ONE WORD '125252' WAS WRITTEN ON SECTOR 

:#0 & IT WILL BE CHECKED IN THE NEXT TESTS. 


'WRABRBBBBBRBABBRBARRBSAASABARRARARRARARRRARRRRAARRAERSRRERERRA SESE SERS SE SE SC 


;GO, DO CONTROL RESET 
;THIS IS A CALL FOR THE ‘CNTRL- 
;RESET' ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
IF THE ‘CNTRL RDY* DOES NOT SET 
;AN ERROR IS REPORTED. NOTE THAT 
;THE PC IN ERROR MESSAGE IS THE 

:PC WHERE "CNT.RESET’ IS LOCATED. 
;THIS IS A VERY BASIC ERR @ IF IT 
;OCCURS GO BACK TO TEST 10 


SCOPE 

CNT.RESET 

TST.SIN 

MOV #OUTBUF ,R3 
MOV #1,R9 

MOV RO, (R3)+ 
MOV RO, (R3) 

NEG (R35)+ 

INC RO 

CMP #200,R0 
BNE 9$ 

CLR (R3)+ 

MOV #125252 ,aR5 
MOV #OUTBUF ,R3 
MOV RKCS,R1 

MOV RKBA,R2 
MOV R3,aR2 

MOV #-400 ,aRrKwC 
MOV DRIVAD,@RFDA 
MOV #2003,aR1 
TSTB aR1 


;GO CHECK IF SIN IS SET 


;1F SET, DO DRIVE RESET TO CLR IT 


:THIS CODE SETS UP A 256 WORD BUFFER 
sWHICH WILL BE USED TO WRITE 1 SECTOR 


;0N THE DISK 
:1ST WORD 
:2ND WORD 
:3RD WORD 
:4TH WORD 


253RD WORD 
:254TH WORD 


:255TH WORD 
:256TH WORD 


:SET COUNT 


177776 


000177 
177601 
000000 
125252 


;SET UP DATA WORDS 


; DONE? 


:SET 255TH WORD TO 0 


;SET 256TH WORD 
sRESET POINTER TO OUTBUF 


2°S COMPLEMENT 
OF ABOVE 


;FROM HERE-SET UP CURRENT ADDRESS 

;SET UP WORD COUNT 400 WORDS 

;SET UP DISK ADDRS, SECTOR 0, CYLINDER 0 
;WRITE FORMAT, GO 


:WAS "CNTRL RDY* CLEARED AS GO WAS SET? 


SEQ 0052 


MD~11-CZRKKF, 
CZRKKF .P11 


006634 
006640 
006646 


006650 


006652 


006656 


006660 


006664 
006666 


100003 
004737 
104030 


005000 
105711 
100411 
005200 
001374 


004737 
013737 
104416 


104031 


004737 


104032 


004737 
104033 
004737 
104034 


022712 
001406 
012737 
011237 
104035 


004737 
104036 


022711 
001406 
072737 
011137 
104024 


021002 


020774 
001350 


021234 


021262 


021316 


034342 
034342 
001164 


021342 


002202 


002202 
001164 
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001202 


001162 


001162 


MACY11 30A(1052) 
715 


23: 


3$: 


4$: 
5$: 


6$: 


7$: 


8$: 


B 5 
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CHECK "WRITE* FORMAT FUNCTION-CYLINDER 0, SECTOR O 


BPL 23 7YES, BRANCH 

JSR PC, GT3RG :G0, GET RKCS, ER, DS 

ERROR 30 ;"CNTRL RDY* DIDN'T CLEAR AS GO 
sWAS SET TO ‘WRITE FORMAT’ 

CLR RO 

TSTB ari :WAS ‘CNTRL RDY* SET ON COMPLETION OF WRITE? 

AM] 3$ ;YES, BRANCH 

INC RO ;NO, HAVE U WAITED LONG ENOUGH? 

BNE 2$+2 ;1F NOT, LOOP BACK & WAIT 
:1F YES, REPORT ERROR 

JSR PC, GT4RG 3G0, GET RKCS, ER, DS,DA 

MOV DRIVAD,$REG10 

BRKDA4 :G0 TO "BDA4' & BREAK CONTENTS OF 
;$REG10O INTO DR #,CYL,SUR,SEC BITS 

ERROR 31 :'"CNTRL RDY' DIDN'T SET ON COMPLETION 
OF WRITE FORMAT 
;WRT FAT WAS DONE STARTING AT <DSK-ADRES> 
: INDICATED IN EROR MSGE. 

JSR PC, CHKHE :GO CHECK IF ‘HE’ OR ‘ERR’ BIT SET, 
:IF YES, SAVE RKCS, ER, DS, DA. 
;RETURN HERE IF ERROR. 

ERROR 32 ;"HE' OR “ERR' BIT SET WHILE DOING 
:A WRITE FORMAT 
sWRT FMT WAS DONE STARTING AT <DSK-ADRES> 
; INDICATED IN EROR MSGE. 

JSR PC, CHKDA ;GO CHECK IF RKDA INCREMENTED CORRECTLY 
:1F NOT, RETURN HERE. 

ERROR 33 :RKDA SHOULD HAVE INCREMENTED BY 
:1 SECTOR, IT DID NOT 

JSR PC, CHKWC ;CHECK IF WORD COUNT OVERFLOWED, IF 
:NOT RETURN HERE. 

ERROR 34 sRKWC DID NOT OVERFLOW TO 0, AFTER 
sMFER ON WRITE FORMAT 

CMP #OUTBUF +1000, are :DID RKBA INCREMENT CORRECTLY? 

BEQ 7$ YES, BRANCH 

MOV #OUTBUF +1000, SREGO -GET EXPCTD RKBA 

MOV aR2,$REG1 -GET ACTUAL RKBA 

ERROR 35 :RKBA DIDN'T INCREMENT BY 1000 AFTER 
“WRITE FORMAT OF 400 WORDS 

JSR PC, CHKER ;CHECK IOF ANY BIT IN RKER SET, 

sIF YES RETURN HERE. 
ERROR 36 “RKER BIT SET ON DOING 1 WORD 
:WRITE FORMAT 

CMP weet. ari ; DOES RKCS STILL HAVE ‘WRT FMT" BITS? 

BEQ TST16 VES, ERLT 

MOV #2202, $REGO GET EXPCTD RKCS 

MOV aR1,$REG1 :GET ACTUAL RKCS 

ERROR 24 “RKCS DIDN'T CONTAIN ‘WRT FMT’ BITS 


AFTER THE FUNCTION WAS COMPLETED 


‘ 
STUER EAE AAA AAA AAA AAA ARATE ARAL A ARTA A AKARAAAARAAARARERAAARARKAREE 


5% 


TEST 16 CHECK ‘READ FORMAT’ FUNCTION-CYLINDER 0, SECTOR 0 
s*THIS TEST CHECKS THE LOGIC INVOLVED IN THE WRITE FMT 
;*FUNCTION. ON ISSUING A WRT FAT, THE FOLLOWING IS CHECKED 
;*1) CNTRL RDY WAS CLEARED AS GO WAS SET. 
:*2) CNTRL RDY SETS WITHIN A CERTAIN TIME ON COMPLETION OF FUNCTION 


SEQ 0053 


MD~11-CZRKKF, 


CZRKKF. 


P11 


006746 


006754 


006756 
006762 
006766 
006772 


006774 
007002 
007010 


007014 
007016 
007020 
007024 


007026 
007030 


007032 
007034 
007036 


007040 
007044 
007052 


007054 


000004 
005000 
104413 


104421 


013701 
013702 
012703 
010312 


012777 
013777 
012711 


105711 


104030 


005000 
105711 


100411 
005200 
001374 


004737 
013737 
104416 


104045 


001332 
001336 
033342 


177777 
001350 
002005 


021002 
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172332 
172330 


020774 
001350 001202 


MACY11 30A(1052) 
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. % 
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CHECK "READ FORMAT’ FUNCTION-CYLINDER 0, SECTOR 0 


IF ‘HE* OR ‘ERR’ BIT SET? 

IF RKDA INCREMENTED CORRECTLY FROM 0 TO 1? 

IF RKWC OVERFLOWED CORRECTLY TO 0? 

If RKBA INCREMENTED CORRECTLY BY 2? 

If ANY BIT IN RKER SET? 

IF THE CORRECT HEADER WAS RECEIVED? 

FOR RK11C, AFTER RD FMT RKDB CONTAINS THE CHECKSUM 


THAT SECTOR. 


(125252 IN THIS CASE, BECAUSE THE 


:*FIRST WORD IN SEC 0 WAS WRITTEN AS 125252 IN 


:*THE 
=#10) 


PREVIOUS TEST) 


A 76 _ RK11D, AFTER RD FAT RKDB SHOULD CONTAIN 
-* 
IF THE RD FAT FUNCTION BITS ARE STILL IN 


STRATA RAR TARTRATE AAA ATER AEEAEEEEAARAEARAAAAEHEKEREEEKEEE 


1$: 


2$: 


3*11) 

s*THE RKCS? 

SCOPE 

CLR RO 
CNT.RESET 

TST.SIN 

MOV RKCS,R1 
MOV RKBA,R2 
MOV #OUTBUF RS 
MOV R3,aR2 

MOV #-1 ,aRKwWC 
MOV DRIVAD,@RKDA 
MOV #2005.aR1 
TST8 ari 

BPL 2$ 

JSR PC.GT3RG 
ERROR 

CLR RO 

TSTB ari 

BM! 3$ 

INC RO 

BNE 2$+2 

JSR PC, GT4RG 
MOV DRIVAD,$REG10 
BRKDAG 

ERROR 45 


;GO, DO CONTROL RESET 

:THIS IS A CALL FOR THE ‘CNTRL- 
RESET’ ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
IF THE ‘CNTRL RDY* DOES NOT SET 
;AN ERROR IS REPORTED. NOTE THAT 
7 THE PC IN ERROR MESSAGE IS THE 
;PC WHERE "CNT.RESET® IS LOCATED. 
:THIS IS A VERY BASIC ERR @ IF IT 
sOCCURS GO BACK TO TEST 10 

:GO CHECK IF SIN IS SET 

;IF SET, DO DRIVE RESET TO CLR IT 


Bod a WHERE HEADER WORD IS TO BE 


iX-FE 

:SET UP WORD COUNT 

:SET UP DISK ADRS, SECTOR 0, CYLINDER O 
;READ FORMAT, GO 


;WAS "CNTRL RDY" CLEARED AS GO WAS SET? 
YES. BRANCH 

:GO, GET RKCS, RKER 

;CNTRL RDY DIDN'T CLEAR AS GO WAS 

;SET TO ‘READ FORMAT‘ 


sWAS ‘CNTRL RDY* SET ON COMPLETION OF 
; TRANSFER 

:YES, BRANCH 

:NO, HAVE U WAITED LONG ENOUGH? 

:1F NOT, LOOP BACK & WAIT 

sIF YES, REPORT ERROR 

:G0, GET RKCS, ER, DS.DA 


:GO TO 'BDA4' & BREAK CONTENTS OF 
;$REG1O INTO DR #,CYL,SUR,SEC BITS 
:;"CNTRL RDY' DIDN'T SET ON COMPLETION 
OF READ FORMAT 


SEG 0054 


MD-11-CZRKKF, 


CZRKKF 


-P11 


007056 
007062 


007064 
007070 


007072 
007076 
007100 
007104 
007106 
007114 
007120 
007122 
007126 
007130 


007132 


007150 


007152 
007156 
007160 
007166 
007172 


004737 021234 


104046 


004737 
104040 


004737 
104041 


022712 
001406 
012737 
011237 
104042 


004737 
104036 
005713 


001407 
005037 
005037 
011337 
104043 


022711 
001406 
012737 
011137 
104024 


021262 


021316 


033344 
033344 
001164 


021342 


001162 
001164 
001166 


002204 


002204 
001164 
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001162 


001162 


MACY11 30A(1052) 


T16 


3$: 


4$: 


6$: 


7$: 


8$: 


9$: 


s*TEST 17 


D 5 
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CHECK "READ FORMAT’ FUNCTION-CYLINDER 0, SECTOR 0 


sREAD FMT WAS DONE STARTING AT <DSK-ADRES> 


; INDICATED IN EROR MESGE 


JSR PC, CHKHE ;CHECK IF “ERR* OR ‘HE’ BIT SET, IF 
:YES RETURN HERE. 

ERROR 46 "HE OR ‘ERR’ BIT SET WHILE 
;DOING A ‘READ FORMAT’ 
sREAD FMT WAS DONE STARTING AT <DSK-ADRES> 
: INDICATED IN EROR MESGE 

JSR PC,CHKDA ;CHECK IF RKDA INCREMENTED CORRECTLY 
;1F NOT, RETURN HERE. 

ERROR 40 ;RKDA SHOULD HAVE INCREMENTED 
:BY 1 SECTOR, IT DID NOT 

JSR PC, CHKWC ;CHECK IF RKWC OVERFLOWED TO 0, IF 
;NOT RETURN HERE. 

ERROR 41 :RKWC DID NOT OVERFLOW TO 0 
AFTER XFER ON READ FORMAT 

CMP #OUTBUF+2,@R2 ;D1D RKBA INCREMENT TO NXT WORD ADDRS? 

BEQ 7$ YES, BRANCH 


MOV #OUTBUF+2,SREGO ;GET EXPCTD RKBA 
MOV @R2,$REG1 ;GET ACTUAL RKBA 

42 ;RKBA DIDN'T INCREMENT BY 2 AFTER 
:"READ FORMAT’ OF 1 WORD 


JSR PC,CHKER ;CHECK IF ANY BIT IN RKER SET, IF 
:YES RETURN HERE. 

ERROR 36 ;RKER BIT SET ON DOING 
31 WORD READ FORMAT 

TST ars ;DOES OUTBUF CONTAIN THE HEADER 
7WORD-0 

BEQ S$ 7 YES, BRANCH 

CLR SREGO :GET SECTOR NO. 

CLR SREG1 sEXPCTD HEADER 

MOV @R3,SREG2 ;GET HEADER RECVD 

ERROR 43 :CORRECT HEADER WORD-0-WAS 
sNOT RECEIVED ON READ FORMAT 

CMP #2204,aR1 ;DOES RKCS HAVE THE ‘RDFMT’ BITS? 

BEQ TST17 7; YES, BRANCH 


MOV #2204, $REGO 
MOV 7 aia 


;GET EXPCTD RKCS 

;GET ACTUAL RKCS 

sRKCS DIDN'T CONTAIN ‘RD FMT" 
:BITS AFTER FUNCTION WAS 

; COMPLETED 


—MADAAABAAABAABSAARAARARARARARRASLARASAARARARASAARARALASEAARSARRAAARASR SSS | 


CHECK "READ' FUNCTION-CYLINDER O,SECTOR 0 

s*THIS IS THE FIRST TIME A PURE READ IS PREFORMED IW THIS 
;*TEST SEQUENCE. THE FOLLOWING IS CHECKED 

:*1) CNTRL RDY CLEARS AS GO IS SET 

:#2) CNTRL ROY SETS WITHIN A CERTAIN TIME ON COMPLETION 
:*OF FUNCTION 

3*3) IF ‘HE’ OR "ERR' BIT SET? 

3*4) IF RKDA INCREMENTED CORRECTLY? 

3*5) IF RKWC OVERFLOWED TO 0? 

:*6) IF RKBA INCREMENTED CORRECTLY? 


SEQ 0055 


MD~-11-CZRKKF, 
CZRKKF .P11 


007174 
007176 


007200 


007202 
007206 
007210 
007214 
007220 


007222 
007230 
007236 


007242 
007244 
007246 
007252 


007254 
007256 


007260 
007262 
007264 
007266 
007272 
007300 


007302 


007304 
007310 


007312 


000004 
104413 


104421 


013701 
005000 
013702 
012703 
010312 


012777 
013777 
012711 


105711 
100003 
004737 
104030 


005000 
105711 


100411 
005200 
001374 
004737 
013737 
104416 


104045 


004737 
104046 


004737 


001332 
001336 
033342 


177400 
001350 
000005 


021002 


020774 
001350 


021234 


021262 
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172104 
172102 


001202 


MACY11 30A(1052) 
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1§: 


23: 


3$: 


4$: 


eS 
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CHECK *READ* FUNCTION-CYLINDER 0,SECTOR 0 


3*7) IF ANY RKER BIT SET? 

:*8) IF THE CORRECT PSUEDO-HEADER (FIRST WORD) WAS 
;*READ FROM SECTOR 0 

:*9) IF THE *READ® FUNCTION BITS ARE STILL IN RKCS 


-eeeeeeeeteeeeeetetedeeeerteeeeeteeeteneeeeeteneeeeeeeneneeetene 


18117: 


SCOPE 
CNT.RESET ;G0, DO CONTROL RESET 
:THIS IS A CALL FOR THE ‘CNTRL- 
;RESET’ ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
;1F THE *CNTRL RDY’ DOES NOT SET 
;AN ERROR IS REPORTED. NOTE THAT 
; THE PC IN ERROR MESSAGE IS THE 
:PC WHERE ‘CNT.RESET* IS LOCATED. 
:THIS IS A VERY BASIC ERR @ IF IT 
:OCCURS GO BACK TO TEST 10 
TST.SIN :GO CHECK IF SIN IS SET 
:1F SET, DO DRIVE RESET TO CLR IT 
MOV RKCS,R1 
CLR RO 
MOV RKBA,R2 
MOV #OUTBUF ,R3 
MOV R3,aR2 ;SET UP ADDRS WHERE DATA WORD IS 
:TO BE X-FERRED 
MOV #-400,aRKwC :SET UP WORD COUNT 
MOV DRIVAD,@RKDA :SET UP DISK ADRS, SECTOR 0, CYLINDER O 
MOV #5 ,aR1 ;READ, GO 
TSTB ari ;WAS ‘CNTRL RDY* CLEARED AS GO WAS SET? 
BPL 2$ :YES, BRANCH 
JSR PC,.GT3RG :G0, GET RKCS, 
ERROR 30 sCNTRL RDY DID NOT CLEAR AS GO 
sWAS SET TO ‘READ' 
CLR RO 
TSTB ari ;WAS CNTRL RDY SET ON COMPLETION 
:0F TRANSFER? 
BM! 3$ ;YES, BRANCH 
INC RO :NO, HAVE U WAITED LONG ENOUGH? 
BNE 2$+2 :1F NOT, LOOP BACK & WAIT 
:1f YES, REPORT ERROR 
JSR PC ,.GT4RG :G0, GET RKCS, ER, DS.DA 
MOV DRIVAD,$REG10 
BRKDAS ;GO TO ‘BDAS' & BREAK CONTENTS OF 
;$REG10O INTO DR #,CYL.SUR,SEC BITS 
ERROR 45 ;CNTRL RDY DID NOT SET ON 
sCOMPLETION OF READ 
sREAD WAS DONE STARTING AT <DSK-ADRES> 
: INDICATED IN EROR MESGE 
JSR PC, CHKHE :sCHECK IF "ERR" OR ‘HE’ BIT IS SET 
sIF YES, RETURN HERE. 
ERROR 46 "HE? OR "ERR' BIT SET WHILE 
:DOING A READ. 
READ WAS DONE STARTING AT <DSK-ADRES> 
s INDICATED IN EROR MESGE 
JSR PC,CHKDA ;sCHECK IF RKDA INCREMENTED CORRECTLY, 


SEQ 0056 


MD-11-CZRKKF, 
CZRKKF .P11 


007316 
007320 
007324 
007326 


007346 
007350 
007354 
007356 
007362 


007404 


007406 
007414 
007416 
007424 
007432 


007434 
007440 
007442 
007450 
007454 


007456 
007460 
007464 
007466 


104040 
004737 
104041 


022712 
001406 
012737 
011237 
104042 


004737 
104036 
0227135 


001411 
012737 
011337 
013737 
104044 


022777 


104037 


022711 
001406 
012737 
011137 
104024 


104413 
005777 
001407 
013737 
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021516 


034342 
034342 
001164 


021342 


000001 


000001 
001164 
001350 


125252 


125252 
171712 


000204 


000204 
001164 


171656 
001342 


TEST 2 


001162 


001162 
001166 


171726 


001162 
001164 


001162 


001164 
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5$: 


6$: 


7$: 


8$: 


9$: 


10$: 


11$: 


CHECK "READ" FUNCTION-CYLINDER 0,SECTOR 0 
;1F NOT RETURN HERE. 


F 5 
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SEQ 0057 


ERROR 40 ;RKDA DID NOT INCREMENT 
;BY 1 (SECTOR) 

JSR PC ,CHKWC ;CHECK if RKWC OVERFLOWED TO O, 
:1F NOT RETURN HERE. 

ERROR 41 ;RKWC DID NOT ig TO 0, 
;AFTER X-FER ON READ 

CMP #OUTBUF +1000, aR2 3DID RKBA INCREMENT CORRECTLY? 

BEQ 7$ YES, BRA ANCH 

MOV #OUTBUF+100C, SREGO ;GET EXPCTD RKBA 

MOV @R2,$REG1 :GET ACTUAL RKBA 

ERROR 42 ;RKBA DID NOT INCREMENT BY 2 
“AFTER *READ' OF 1 WORD 

JSR PC,CHKER ;CHECK IF ANY BIT IN RKER SET, 
:1F YES RETURN HERE. 

ERROR 36 ;RKER BIT SET ON DOING 1 
sWORD ‘READ’ 

CMP #1,aR35 ;DOES OUTBUF CONTAIN THE RIGHT 
:DATA WORD 

BEQ 9$ : YES BRANCH 

MOV #1,$REGO :GET EXPCTD DATA WORD 

MOV (R35), $REG1 :GET RECVD DATA WORD 

MOV DRIVAD ,SREG2 :GET DISK ADRS FROM WHICH READ WAS DONE 

ERROR 44 :DI1D NOT READ THE CORRECT 
sDATA WORD--FROM DISK ADRES, 
:SEC 0. CYL 0, SUR O 
;AFTER 1 SECTOR READ RKDB CONTAINS 
sFOR RK1I1C 
sTHE CHECKSUM FOR THAT SECTOR 
sFOR RK11D 
: THE LAST WORD TRANSFERRED TO MEMORY 
;1T SO HAPPENS THAT WITH THE SECTOR 
; THAT WAS READ, RKDB CONTAINS THE 
;SAME INFORMATION FOR BOTH RK11C 
sAND RK11D 

CMP #125252,a@RKDB ;DOES RKDB CONTAIN THE EXPCTD WORD? 

BEQ 10$ ;YES, BRANCH 

MOV #125252,$REGO  ;GET EXPCTD RKDB 

MOV @RKDB,SREG! :GET RECVD RKDB 

ERROR 37 ;RKDB DOESD NOT CONTAIN THE 

aimee WORD AFTER A READ OF SEC 0 
Y 

CMP #204,aR1 ;DOES RKCS HAVE THE ‘READ' BITS? 

BEQ 11$ ;YES , BRANCH 

MOV #204, $REGO = GET EXPCTD RKCS 

MOV aR1,$REG1 ;GET RECVD RKCS 

ERROR 24 sRKCS DID NOT CONTAIN ‘READ‘ 
;sFUNCTION BITS AFTER OPERATION 
:WAS COMPLETED 

CNT.RESET :GO DO CONTROL RESET 

TST aRKDB :DID CONTROL RESET CLEAR RKDB? 

BEQ TST20 YES, EXIT 

MOV RKDB, SREG1 GET ADRES OF RKDB 


; 3 
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CZRKKF P11 21-FEB-78 08:51 117 CHECK ‘READ*® FUNCTION-CYLINDER O0,SECTOR 0 SEG 0058 
3102 007474 017737 171642 001164 MOV @RKDB,SREGI :GET CONTENTS OF RKDB 
be 007502 104102 ERROR 102 :CONTROL RESET DIDN'T CLR RKDB 
3105 PPPOE RRSSSLESSSESLSE EEE ICSE RES ESE ESLER SEES SESE ECCS TEE EEE EEE EE EE 
3106  STEST 20 CHECK "WRITE FORMAT’ -CYLINDER 0, SECTOR 0-13 
3107 :*THIS TEST GOES ONE STEP FURTHER & PERFORMS A WRT 
3108 + FMT ON CYLINDER 0 & CHECKS THE FOLLOWING 
3109 :*1) IF CNTRL RDY SET WITHIN A CERTAIN TIME ON COMPLETION 
3110 :*OF THE FUNCTION 
3111 :*2) IF ‘HE* OR ‘ERR’ BIT SET? 
3112 :*35) IF THE RKDA INCREMENTS CORRECTLY? 
3113 7*4) IF THE RKDB IS CLEAR? 
3114 :t*WRT FAT IS DONE ONE SECTOR AT A TIME 
3115 :*THE FIRST WORD OF EVERY SECTOR IS WRITTEN AS A 
3116 : *PSUEDO-HEADER CONSISTING OF DRIVE #, CYLINDER #, SURFACE 
3117 :*& SECTOR #. THIS WILL BE READ & CHECKED IN THE FOLLOWING TEST. 
3118 SERRA RARE TAEAAAAE EAE AKKETKKKKhhhh 
3119 007504 000004 TST20: SCOPE 
3120 007506 013703 001332 MOV RKCS,R3 
3121 007512 012702 177764 MOV #-14,R2 :SET UP COUNT FOR 12 SECTORS 
3122 007516 013704 001340 MOV RKDA,R4 
3123 007522 013701 001350 MOV DRIVAD, R1 :GET DRIVE ADDRESS 
3124 007526 010105 MOV R1,R5 :STORE IT 
3125 007530 005205 INC R5 
3126 007532 012737 007540 001110 MOV #1$,SLPERR :SET RETURN ADRES FOR LUPING 
3127 ; ON ERROR (SW 9) 
3128 007540 104413 1$: CNT.RESET :G0, DO CONTROL RESET 
3129 “THIS IS A CALL FOR THE ‘CNTRL- 
3130 RESET’ ROUTINE. A CONTROL RESET IS 
3131 : ISSUED AND AFTER A CERTAIN TIME 
3132 :IF THE “CNTRL RDY* DOES NOT SET 
3133 7AN ERROR IS REPORTED. NOTE THAT 
3134 ; THE PC IN ERROR MESSAGE IS THE 
3135 ;PC WHERE ‘CNT.RESET® IS LOCATED. 
3136 :THIS IS A VERY BASIC ERR & IF IT 
3137 sOCCURS GO BACK TO TEST 10 
3138 007542 104421 TST.SIN :GO CHECK IF SIN IS SET 
3139 :1F SET, DO DRIVE RESET TO CLR IT 
3140 007544 005000 CLR RO 
3141 007546 010137 033342 MOV R1 ,OUTBUF ; THIS WORD TO BE X-FERRED. FIRST 
3142 ;WORD OF EACH SECTOR WILL BE THE 
3143 ;ACTUAL DRIVE-ADDRS CONSISTING OF 
3144 sORIVE NO, CYL ADDRS, SURFACE 
3145 : SECTOR NO. 
stat 007552 012777 033342 171556 MOV #OUTBUF ,ARKBA ST eRERRES WHICH DATA WORD IS TO 

-X- 

3148 007560 012777 177777 171546 MOV #-1 ,aRKwWC SET UP WORD COUNT 
3149 007566 010114 MOV R1,@R4 ;ADDRS THE DRIVE, CYL 0, & CORRECT SECTOR 
$137 007570 012713 002003 MOV #2003,aR5 sWRITE FORMAT, GO 
3152 007574 105777 171532 2$: TSTB @RKCS :DID "CNTRL RDY" SET? 
3153 007600 100410 BM! 3$ :YES, BRANCH 
3154 007602 005200 INC RO 3NO, HAVE U WAITED LONG? 
3155 007604 001373 BNE 2$ ;IF NOT, LOOP BACK & WAIT 
3156 :IF YES, REPORT ERROR 
3157 007606 004737 020774 JSR PC, GT4RG :GO, GET RKCS, ER, DS,DA 


MD-11-CZRKKF, 


CZRKKF 


-P11 


007612 
007616 
007620 


007622 
007626 


007630 
007634 


007636 


007642 
007644 
007650 
007656 


007660 
007662 
007664 
007670 
007672 


007676 
907700 


010137 
104416 
104031 


004737 
104032 


004737 
104033 


005777 


001406 
005037 
017737 
104037 


005201 
005205 
122705 
001002 
062705 


005202 
001317 


001202 


021226 


021270 


171500 


001162 
171466 


000014 
000004 


RK11 BASIC LOGIC TEST 2 
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001164 


MACY11 30A(1052) 
T20 CHECK “WRITE FORMAT' 


3$: 


4$: 


6$: 


MOV R1,$REG10 ;GET DISK ADRS (UNIT,CYL,SUR,SEC) TO WHICH 
;WRITE FORMAT WAS DONE 

BRKDAG :G0 TO ‘BDAS' & BREAK CONTENTS OF 
;$REG1O INTO DR #,CYL,SUR,SEC BITS 

ERROR 31 :*CNTRL RDY’ DID NOT SET ON COMPLETION 
:OF ‘WRITE FORMAT' 
sWRT FMT WAS DONE STARTING AT <DSK-ADRES> 
; INDICATED IN EROR MSGE. 

JSR PC, CHKHE1 :CHECK IF ‘ERR’ OR ‘HE’ BIT IS SET, 
: If YES RETURN HERE. 

ERROR 32 ;"HE’ OR ‘ERR’ BIT SET WHILE DOING 
;WRITE FORMAT ON CYLINDER O, 
;SECTOR IN ERROR IS AS SHOWN IN 
sDISK-ADRES BITS 0-3 
sWRT FAT WAS DONE STARTING AT <DSK-ADRES> 
: INDICATED IN EROR MSGE. 

JSR PC,CHKDA1 ;CHECK IF RKDA INCREMENTED CORRECTLY? 

ERROR 33 ;RKDA DID NOT INCREMENT CORRECT 
sAFTER 1 WORD ‘WRITE FORMAT’ ON 
sCYLINDER 0, SECTOR IN ERROR IS 1 
;LESS THAN THAT SHOWN IN EXPCTD RKDA 

TST @RKDB ; CHECK THAT RKDB DOES CONTAIN A 0 
sAFTER WRT BECAUSE LAST WORD WRITTEN 
s;WAS SERIALLY SHIFTED OUT TO THE DISK 

BEQ 6$ :YES, BRANCH 

CLR SREGO : THIS IS WHAT RKDB SHOULD CONTAIN 

MOV @RKDB, SREG1 :GET RKDB 

ERROR 37 ;RKDB SHOULD BE 0 AFTER WRT SINCE THe 
sLAST WORD WRITTEN WAS SERIALLY SHIFTED 
:OUT OF RKDB 

7 ok s INCREMENT DRIVE ADDRS TO NXT SECTOR 

CMPB #14,R5 :R U GOING TO CHECK THE LAST SECTOR? 

BNE . +6 :1F NOT,BRANCH 

ADD #4,R5 sIF YES, INCREMENT R5 CORRECTLY TO ‘EXPCTD RKDA' 
sAFTER HAVING CHECKED THE LAST SECTOR 

INC R2 sHAVE U FORMATTED ALL 12 SECTORS? 

BNE 1$ : IF NOT, BRANCH BACK & LOOP 


H 5 
21-FEB-78 08:58 PAGE 


60 
“CYLINDER 0, SECTOR 0-13 


IF YES, EXIT 


PP EAA AAA ERATE EEA EAA AAAS AE AAA AAAAAAARAARAEAAEKEERERE 


CHECK "READ FORMAT'-CYLINDER 0, SECTOR 0-15 


s*TEST 21 


s*THIS TEST PERFORMS A RD FMT ON THE 12 SECTORS OF CY 


LINDER 0 


>*THE FOLLOWING IS CHECKED 


: #1) 


IF CNTRL RDY SET WITHIN A CERTAIN TIME ON COMPLETION 


THE FUNCTION 

IF ‘HE’ OR ‘ERR’ BIT SET? 

IF THE RKDA INCREMENTS CORRECTLY? 

RKBA INCREMENTED CORRECTLY BY 30 (OCTAL) 
RKWC OVERFLOWED TO 0 FROM -14 (OCTAL) 


CORRECT HEADER WAS RECEIVED FROM ALL 12 SECTORS. 
RKCS STILL CONTAINS THE ‘RD FMT* FUNCTION BITS. 


THERE IS A READ ERROR IN THIS TEST OR ANY 


:*OTHER TESTS THE USER SHOULD MAKE SURE THAT 


SEQ 0059 


MD~11-CZRKKF, RK11 BASIC LOGIC TEST 2 
CZRKKF P11 


007702 
007704 
007706 


007710 


007712 
007716 


007750 
007756 
007762 
007764 
007766 
007770 
007774 
010002 


010004 


010006 
010012 


010014 
010020 


010024 
010030 


21-FEB-78 


000004 
005005 
104413 


104421 
013701 


012777 
012777 


105777 
100411 
005205 
001373 
004737 
013737 
104416 


104045 


004737 
104046 


013705 
062705 


004737 
104040 


001332 
177764 


002005 
171350 


020774 
001350 


021234 


001350 
000020 


021270 


1364 
1354 


~ — 
~_w™N 


001202 


MACY11 30A(1052) 
721 


TST21: 


1$: 


2$: 


= 
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CHECK “READ FORMAT'-CYLINDER 0, SECTOR 0-13 


:*1T IS AN IRRECOVERABLE ERROR AND NOT A TRANSIENT 
>*ONE. THIS CAN BE DONE BY LOOPING ON THE TEST 

>*IN QUESTION. USUALLY A TRANSIENT ERROR 

:*DISAPPEARS ON RETRIES, WHEREAS A LOGIC ERROR DOES NOT. 


SF RRARARAAAAAA AAA AAA AAA TERA AEA Ee 


SCOPE 

CLR R5 

CNT .RESET 
TST.SIN 

MOV RKCS,R1 
MOV #-14,R0 


MOV RKDA,R2 
MOV DRIVAD ,aR2 
MOV #OUTBUF .R4 
MOV R4,@RKBA 


MOV #-14 ,aRrkwC 
MOV #2005 ,aRKCS 
TSTB @RKCS 

BAI $ 

INC R5 

BNE 1$ 


JSR PC, GT4RG 
MOV DRIVAD, $REG10 
BRKDA4 


ERROR 45 
JSR PC, CHKHE 
ERROR 46 


MOV DRIVAD,R5 
ADD #20,R5 


JSR PC, CHKDA1 
ERROR 40 


:GO, DO CONTROL RESET 

;THIS IS A CALL FOR THE ‘CNTRL- 
;RESET* ROUTINE. A CONTROL RESET IS 
;1SSUED AND AFTER A CERTAIN TIME 
;1F THE "CNTRL RDY’ DOES NOT SET 
;AN ERROR IS REPORTED. NOTE THAT 
;THE PC IN ERROR MESSAGE IS THE 
:PC WHERE "CNT.RESET* IS LOCATED. 
;THIS IS A VERY BASIC ERR @ IF IT 
;OCCURS GO BACK TO TEST 10 

:GO CHECK IF SIN IS SET 

;1S SET, DO DRIVE RESET TO CLR IT 


;SET UP COUNT FOR 12 SECTORS 
; ADDRESS THE DRIVE 


;ADRS TO WHICH X-FER DATA FROM DSK 
:SET UP WORD COUNT FOR 12 HEADERS TO BREAD 
;READ FORMAT, GO 


:DID CNTRL RDY SET ON COMPLETION? 
YES. BRANCH 

:NO, WAIT FOR IT TO SET 

:1F WAITED LONG ENOUGH REPORT 
sERROR, OTHERWISE LOOP BACK & WAIT 
>GO, GET RKCS, ER, DS.DA 


:GO TO "BDA4" & BREAK CONTENTS OF 

;$REG1O INTO DR#,CYL,SUR,SEC BITS 

;CNTRL RDY DID NOT SET ON COMPLETION 

;OF READ FORMAT-OF CYLINDER 0, 

;SECTORS 0-13 

;READ FAT WAS DONE STARTING AT <DSK-ADRES> 
; INDICATED IN EROR MESGE 

;CHECK IF ‘ERR* OR ‘HE® BIT IS SET, 

;IF YES RETURN HERE. 

; "ERR" OR ‘HE’ BIT SET ON DOING 

;READ FMT-OF CYLINDER 0, SEC 0-15 

;READ FMT WAS DONE STARTING AT <DSK-ADRES> 
; INDICATED IN EROR MESGE 


;RKDA SHOULD HAVE INCREMENTD TO (R2) 


;CHECK IF RKDA INCREMENTED CORRECTLY, 
If NOT, RETURN HERE. 

;RKDA DID NOT INCREMENT BY 12 

;AFTER A ‘RD FMT’ OF 12 HEADERS OF 
:CYLINDER 0, SECTORS 0-13 


SEG 0060 


MD~-11-CZRKKF, 


CZRKKF 


-P11 


010032 
010040 
010042 
010050 
010056 


010060 
010064 


010066 
010070 
010072 
010076 
010104 
010110 
010114 


010116 
010120 
010122 


010124 
010130 


010132 
010136 
010140 
010146 
010152 


022777 


104042 
004737 
104041 


005724 
001413 


104043 


005724 
005200 
001361 


004737 
104036 


022711 
001406 
012737 
011137 
104024 
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033372 
033372 
171262 


021316 


001162 
000014 
001164 
001166 


021342 


002204 


002204 
001164 


TEST 2 


171276 


001162 
001164 


001162 


001162 


MACY13 30A(1052) 
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T21 CHECK *READ FORMAT’=CYLINDER 0, SECTOR 0-13 
yo. SHOULD INCREMENT BY 24 BYTES 
;AT THE END OF X-FER 
4$: CMP #OUTBUF +30, @RKBA ;DID RKBA INCREMENT CORRECTLY? 
BEQ 5$ » BRANCH 
MOV #OUTBUF +30, $REGO. ;GET EXPCTD RKBA 
MOV @RKBA, SREG1 :GET ACTUAL RKBA 
ERROR 42 ;RKBA DID NOT INCREMENT CORRECTLY 
AFTER READ FORMAT OF 12 HEADERS 
5$: JSR PC, CHKWC :GO CHECK IF RKWC OVERFLOWED TO 0 
;1F NOT RETURN HERE. 
ERROR 41 ;RKWC DID NOT OVERFLOW TO 0 
;AFTER ‘RD FMT’ OF 12 HEADERS 
;OF CYLINDER 0 
6$: TST (R4)+ ;WAS THE CORRECT HEADER RECIEVED? 
BEQ 7$ >YES, BRANCH 
MOV RO, $REGO ;GET SECTOR FOR WHICH THE HEADER 
ADD #14,$REGO0 ;COULD NOT BE READ CORRECT 
CLR SREG1 ;EXPCTD HEADER-0, FOR CYL 0 
MOV ~(R4) ,SREG2 ;GET WRONG HEADER RECVD 
ERROR 43 ;HEADER WAS NOT READ RIGHT FOR 
;SECTOR (AS IN ER MSGE), & CYL O 
TST (R4)+ ;WAS THE CORRECT HEADER RECVD? 
7$: INC RO ;YES, HAVE U CHECKED FOR ALL 12 SECTORS? 
BNE 6$ ;1F NOT, LOOP BACK & CHK HDR FRM NXT SECTR 
JSR PC,CHKER ;CHECK IF ANY BIT IN RKER IS SET, 
IF YES, RETURN HERE. 
ERROR 36 ;RKER BIT SET ON DOING RD FMT 
OF CYL 0, SECTORS 0-13 
8$: CMP #2204,aR1 ;DOES RKCS STILL CONTAIN FUNCTION BiTS? 
BEQ TST22 osVES, EXIT 
MOV #2204 ,$REGO :GET EXPCTD RKCS 
MOV @R1,$REG1 ;GET ACTUAL RKCS 
ERROR 24 ;RKCS DID NOT CONTAIN ‘RD FMT’ 


>FUNCTION BITS ON COMPETION OF 
; THE FUNCTION 


PFET EAA TATA TAA AARA TAA AAEAAARAAARAAAAAERERAEKEKKEEREE 


°@ 
. 


TEST 22 CHECK ‘READ',CYLINDER 0, SECTORS 0 TO 13 
s*THIS TEST PERFORMS A READ OF ALL THE SECTORS OF CYLINDER 0 
;*® CHECKS THE FOLLOWING 
;*1) CNTRL RDY SETS WITHIN A CERTAIN TIME ON COMPLETION 
;*OF THE FUNCTION 
;*2) IF ‘HE’ OR ‘ERR*® BIT SET? 
:*3) IF THE CORRECT PSUEDO-HEADER (FIRST WORD OF EVERY) 
;*SECTOR, WRITTEN IN A PREVIOUS TEST) WAS RECEIVED. 
>*4) IF RKDS CONTAINS THE CORRECT WORD. 
>*4) IF RKDA INCREMENTED CORRECTLY. 
:*5) IF REST OF THE (377) WORDS IN EACH SECTOR ARE ‘O' 
;*PREVIOUSLY ONE WORD WAS WRITTEN PER SECTOR. 
:*6) IF RKCS STILL CONTAINS THE ‘READ* FUNCTION BITS 
:*7) IF CONTROL RESET CLEARS RKDB. 
:* IF TESTING IS BEING DONE ON A SIMULATOR ONLY LAST SECTOR(13) 


» NOTE 


:*IS READ BECAUSE THE SIMULATOR CAN STORE ONLY 1 SECTOR (256 WORDS). 


SEQ 0061 





MD-11-CZRKKF, 


CZRKKF 


-P11 


010154 
010156 


010164 
010170 
010174 
010176 
010202 
010206 


010210 


010226 
010230 


010232 


010234 
010240 
010244 
010252 


010256 
010260 
010262 
010264 
010266 


010270 
010274 
010300 


010302 


010304 
010310 


000004 
012737 


013703 
013701 
010105 
012704 
005737 
001405 


052701 


05205 
104413 


104421 


010177 
010477 
012777 
012715 


005000 
105713 
100410 
005200 
001374 


004737 
010137 
104416 


104045 


004737 
104046 
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010230 001110 


001332 
001350 


033342 
001344 


000013 
000020 


177764 


171100 
171072 
177400 
000005 


020774 
001202 


021226 


171062 


— 30A(1052) 


9$: 


1$: 


2$: 


3$: 


K 5 
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63 


;*HENCE ONLY THE DATA WRITTEN LAST CAN BE READ BACK. 


SCOPE 

MOV #1$,SLPERR 
MOV RKCS,R35 
MOV DRIVAD,R1 
MOV R1,R5 

MOV #OUTBUF ,R4 
TST SIMUL 

BEQ 9$ 

BIS #13,R1 

BIS #20,R5 

BR 1$ 

INC R5 
CNT.RESET 

TST.SIN 

MOV R1,@RKDA 
MOV R4 ,@RKBA 
MOV #-400 ,aRKWC 
MOV #5 ,aR3 
CLR RO 

TSTB ars 

BMI 3$ 

INC RO 

BNE 2$ 

JSR PC,.GT4RG 
MOV R1,$REG10 
BRKDA4 

ERROR 45 

JSR PC ,CHKHE1 
ERROR 46 


; TESTING ON SIMULATOR? 


ON 


ERROR 


;NO, BRANCH 
:1F TESTING ON SIMULATOR READ 
; SECTOR 


13. ONLY 
;SET BITS FOR SEC 13 
;RKDA SHOULD INCRMNT TO THIS AFTER READ 


9) 


PPETITITITIL ILLITE LLL LILLE LIT LTTE TLL Tet tiie 
TST22: 
;SET RETURN py FOR LUPING 

w 


;SET COUNT FOR 12 SECTORS 
sRKDA SHOULD INCREMENT TO 
;THIS AFTER 1 SECTOR READ 


>GO, DO CONTROL RESET 
:THIS IS A CALL FOR THE 
;RESET’ ROUTINE. A CONTROL RESET IS 
> ISSUED AND AFTER A CERTAIN TIME 
;1F THE *CNTRL RDY* DOES NOT SET 
;AN ERROR IS REPORTED. NOTE THAT 


*CNTRL- 


; THE PC IN ERROR MESSAGE IS THE 


PC WHERE *CNT.RESET® IS LOCATED. 
;THIS IS A VERY BASIC ERR @ IF IT 


sOCCURS GO BACK TO TEST 10 


;GO CHECK IF SIN IS SET 

;1F SET, DO DRIVE RESET TO CLR IT 
;ADDRESS THE DRIVE 

;ADRS TO WHICH X-FER DATA FROM DISK 


; SETUP WORD COUNT 


:DID CNTRL RDY SET ON COMPETION? 


READ ,GO 


:YES, BRANCH 


;NO, WAIT FOR IT TO SET 


;1F WAITED LONG ENOUGH, REPORT 


sERROR, OTHERWISE LOOP BAK & WAIT 

:GO, GET RKCS, ER, DS.DA 

>GET SECTOR ADDRES WHERE ERROR OCCURED 
:GO TO ‘BDA4' & BREAK CONTENTS OF 
;$REG1O INTO DR #,CYL,SUR,SEC BITS 
:CNTRL RDY DID NOT-SET ON COMPLETION 


;OF READ OF CYLINDER 0, SECTOR 


AS SHOWN IN <DSK-ADRES> 

;READ WAS DONE STARTING AT <DSK-ADRES> 
; INDICATED IN EROR MESGE 

;CHECK IF ‘ERR’ OR ‘HE* BIT IS SET, 
;1F YES RETURN HERE. 

;HE OR ERR BIT SET 

;ON ‘READ’ OF CYLINDER 0, SECTOR 

;AS SHOWN IN <DSK-ADRES> 


SEQ 0062 


MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2 


CZRKKF 


-P11 


010312 


010314 


010332 


010334 
010340 


010342 


010404 
010410 


010414 


010416 
010422 


010424 
010430 


010432 


020114 


001407 
010137 
011437 
010137 
104044 
004737 


104040 


012737 


012037 
010137 


104044 


005237 
001357 


005737 
001011 


005201 
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001162 
001164 
001166 


021270 


177775 
033344 
177401 


001362 


001162 


001164 
001166 


001370 


001344 


001370 
001362 


MACY11 3 
122 


4$: 


5$: 


12$: 


7$: 


-- 3 
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CHECK *READ', CYLINDER 0, SECTORS 0 TO 13 


;READ WAS DONE STARTING AT <DSK=ADRES> 
; INDICATED IN EROR MESGE 

;WAS THE DATA WORD RECVD, CORRECT? 

; THE FIRST DATA WORD OF EACH SECTOR 

:1S AN ADRS WORD COMRISING OF DRIVE NO, 
:CYLINDER ADRS, SUR, SECTOR ADRS 


;GET EXPCTD DATA WORD FROM DISK 

;GET THE DATA WORD RECVD 

;GET DISK ADRES 

;DID NOT RECIEVE CORRECT DATA WORD ON 
READ, OF CYLINDER 0, SECTOR AS SHOWN IN ‘DSK 
;ADRES' OF EXPCTD DATA WORD 

;CHECK IF RKDA INCREMENTED CORRECTLY, 
;1F NOT RETURN HERE. 

;RKDA DID NOT INCREMENT CORRECTLY 
;AFTER READ OF 1 WORD, FROM CYL O 
>SEC IN ERROR IS 1 LESS THAN THAT 

; SHOWN IN EXPCTD RKDA 


“AS A RESULT OF ‘WRT FMT’ IN A PREVIOUS TEST 
“FIRST WORD OF EVERY SECTOR IS NON- 
“ZERO (PSUEDO-HDR), REST 377 WORDS 


CMP 


INC 
BNE 


TST 
BNE 


INC 


R1,(R4) 


5$ 
R1,$REGO 
(R4) , SREG1 
R1,$REG2 
4& 


PC, CHKDA1 
40 


#-3,EFLG1 
#OUTBUF +2,R0 
#-377, COUNT 


EGO 
(RO)+, SREG1 
R1,$REG2 


&4 


sARE ALL O'S. 


;CHECK IF THE REST OF THE 377 
;WORDS ARE ALL O'S 

;ALLOW ONLY 3 ERRORS 

; INITIALIZE PTR TO 2ND WRD IN BUFR 
sCHECK 377 WORDS IN THE BUFFER 

1S THIS WRD 0? 


:NO, ERROR 


; INCRMNT PTR TO NXT WRD 
;CHKD ALL 377 WRDS? 


YES, BRANCH 


:GET EXPCTD WORD 
;GET WORD RECVD 
;GET — ADRES, ERROR IN THIS 


:SECTO 


;DATA ERROR, THE LAST 377 WORDS 

;READ FROM EACH SECTOR SHOULD BE 0 

; IN A PREVIOUS TEST, FIRST WORD OF 
sEVERY SEC (CYL 0) WAS WRITTEN AS A 
;PSUEDO-HDR, REST OF THE WORDS IN THE 
;SECTR ARE AUTOMATICALLY WRITTEN AS 
;0°S. THIS ERROR MAY MEAN THAT IT 
;DIDN'T HAPPEN SO 

;ALLOW ONLY 3 DATA ERORS OF THIS KIND 


: TESTING ON SIMULATOR? 


;YES BRANCH 


; IF NOT TESTING ON SIMULATOR GO AHEAD 
; & READ ALL 12 SECTORS ON CYL 0 
; INCREMENT DRIV-ADRES TO NXT SECTOR 


SEQ 0063 


MD-11-CZRKKF, 


CZRKKF 


-P11 


010444 


010450 
010452 


010454 
010460 
010462 
010470 
010474 


010476 


010500 
010504 
010506 
010514 
010522 


122705 
001002 
062705 


005202 
001266 


022713 
001406 
012737 
011337 
104024 


104413 


005777 
001407 
013737 
017737 
104102 


000014 
000004 


000204 


000204 
001164 


170636 


001342 001162 


170622 


RK11 BASIC LOGIC TEST 2 
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005205 


001162 


001164 


MACY11 30A(1052)- E 65 
T22 CHECK "READ',CYLINDER 0, SECTORS 0 T0 13 


10$: 


8$: 


MOV #204, $REGO 
MOV @R3,$REG1 
ERROR 24 


CNT.RESET 


TST @RKDB 
BEQ TST23 ; YES, 
MOV RKDB, SREGO 
MOV @RKDB , SREG1 
ERROR 102 


5 
21- FEB-78 08:58 PAGE 


INC R5 ; INCREMENT ‘EXPCTD DRIV-ADRES' 

CMPB #14,R5 ;R U GOING TO READ THE LAST SECTOR? 
BNE +6 :;1f NOT, BRANCH 

ADD #4,R5 IF YES, INCREMENT ‘EXPCTD RKDA* 


; CORRECTLY 


INC Re ;HAVE U READ ALL 12 SECTORS? 
BNE 1$ ;1F NOT LOOP BACK & READ THE 
NXT SECTOR 
CMP #204 ,aR5 ;DOES RKCS, STILL HAVE THE ‘READ’ FUNCTION 
BEQ 8$ YES, BRANCH 


;GET EXPCTD RKCS 
;GET RKCS RECVD 
sRKCS SHOULD STILL CONTAIN THE ‘READ’ 
;FUNCTION BITS 
:GO ,DO0 CONTROL RESET 
;THIS IS A CALL FOR THE ‘CNTRL- 
RESET’ ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
:;1F THE *CNTRL RDY* DOES NOT SET 
;AN ERROR IS REPORTED. NOTE THAT 

; THE PC IN ERROR MESSAGE IS THE 

;PC WHERE ‘CNT.RESET® IS LOCATED. 
;THIS IS A VERY BASIC ERR @ IF IT 
sOCCURS GO BACK TO TEST 10 

+010 CNTRL RESET CLEAR RKDB? 


EXIT 
GET ADRES OF RKDB 
:GET CONTENTS OF RKDB 
:CONTROL RESET DID NOT 
; CLEAR RKDB 


% ee eee AAARA AAA EAA A AAR RARER 


s*TEST 23 
s*THIS TEST WRITE FORMATS THE ENTIRE DISK. 
:*WORD OF EVERY SECTOR IS WRITTEN TO BE A PSUEDO-HEADER 
s*CONSISTING OF THE DRIVE #, CYLINDER #, SURFACE & SECTOR #. 
:*1 SECTOR IS WRITTEN AT A TIME. THE WRITING IS DONE 
stIN THIS ORDER: CYL O-SUR 0; CYL O-SUR 1; 
s*CYL 1-SUR 1; CYL 2-SUR 0; CYL 2-SUR 1----- CYL 312-SUR 1. 
;* IMPORTANCE OF THIS TEST SHOULD BE REALIZED, THIS IS 
;*THE FIRST TIME EACH & EVERY SECTOR ON THE DISK IS 
;*ACCESSED & WRITTEN ON. 
:*1S BEING MADE TO INCREMENT OVER THE ENTIRE DISK (FROM 
:*000000 TO 014520) IF A 
:*A DRIVE RESET IS DONE BEFORE DOING WRT FMT FOR THE NEXT 


CHECK ‘WRITE FORMAT’ OF THE DISK 
THE FIRST 


CYL 1-SUR 0 


THIS IS THE FIRST TIME RKDA 
"SIN* OCCURS AT ANY POINT 


s*SECTOR. ANY OTHER ERROR IS CLEARED THROUGH A CONTROL RESET. 
et ia CHECKING IS DONE AFTER WRITING EACH 
* - 


;*1. CNTRL RDY SETS WITHIN A CERTAIN TIME ON COMPLETION 
:*OF THE FUNCTION. 

st2. IF "SIN' OCCURRED? 

#3. IF “*HE* OR ‘ERR’ BIT SET? 

>*4. IF RKDA INCREMENTED CORRECTLY, 
;*CONDITIONS (SECTOR COUNTER BITS OVERFLOWING INTO SURFACE, 
;*SURFACE BIT OVERFLOWING INTO CYLINDER BITS) AT THE END 


INCLUDING BOUNDARY 


SEQ 0064 


MD~11~-CZRKKF, 


CZRKKF. 


P11 


010524 
010526 
010534 


010542 


010544 
010550 
010554 
010560 
010562 
010564 


010566 


010570 
010574 


010600 
010606 
010614 


010620 
010626 
010632 
010634 
010640 
010642 
010646 
010652 


010654 


010676 


000004 
012737 
012737 


005003 


012704 
012702 
013701 
010105 
005205 
104413 


104421 


005037 
010137 


012777 
012777 
010177 


012777 
105777 
100411 
005237 
001372 
004737 
010137 
104416 


104031 


032777 


104001 


000001 
010564 


177465 
177764 
001350 


001362 
033342 


033342 
177777 
170520 
002003 
170500 
001362 


020774 
001202 


001000 


021002 
001170 


RK11 BASIC LOGIC TEST 2 
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001206 
001110 


170530 
170520 


170504 


MACY11 30A(1052) 
123 


TST23: 


1$: 


7$: 


2$: 


170442 3S: 


SCOPE 


TST.SIN 


BRKDA4 
ERROR 


ERROR 


N 5 
21-FEB-78 08:58 PAGE 66 
CHECK “WRITE FORMAT’ OF THE DISK 


;*OF THIS POINTERS ARE INCREMENTED ADJUSTED, ETC. 
;*8 ‘WRT FMT® ON THE NEXT SECTOR IS DONE. 


SF RAA RAR AAA AAAA AAA EAA ARAA AAA AEH ERAAERAEAKEKAAKE EEK 


#1,STIMES 
#1$,SLPERR 


R3 


#-315,R4 
#-14,R2 
oe 


R5 
CNT.RESET 


COUNT 
R1,OUTBUF 


#OUTBUF ,@RKBA 
#~-1 ,aRKWC 
R1,@RKDA 
#2003 ,,aRKCS 
@RKCS 

3$ 

COUNT 

2% 


PC ,GT4RG 
R1,$REG10 


31 


#1000, aRKDS 
4$ 


PC ,GT3RG 
esata 


;;D0 1 ITERATION 


;SET RETURN tg} FOR LUPING 


:(R3)=0, SURFACE 0 BEING WRITTEN 
;(R3)-1, SURFACE 1 BEING WRITTEN 


;SET UP COUNT FOR 203 CYLINDERS 
;SET UP COUNT FOR 12 SECTORS 


:GET DRIVE ADRES 
:STORE IT 


:GO, DO CONTROL RESET 
>THIS IS A CALL FOR THE 
;RESET* ROUTINE. A CONTROL RESET IS 
: ISSUED AND AFTER A 
;1F THE *CNTRL RDY* DOES NOT SET 
;AN ERROR IS REPORTED. NOTE THAT 
:THE PC IN ERROR MESSAGE IS THE 
PC WHERE ‘CNT.RESET’ IS LOCATED. 
;THIS IS A VERY BASIC ERR & IF IT 
:OCCURS GO BACK TO TEST 10 

;GO CHECK IF SIN IS SET 

:IF SET, DO DRIVE RESET TO CLR IT 


> THIS WORD TO BE WRITTEN. 
;WORD OF EACH SECTOR WILL BE THE ACTUAL 
;DISK-ADRES, CONSISTING OF THE DRIVE NO, 
:CYL ADRES, SURFACE BIT SECTOR ADRES 
;ADRES FROM WHICH WORD IS TO B X-FERRED 
:SET UP WORD COUNT 

sADRES THE DRIVE, WITH CORRECT CYL 

;& SECTOR ADRES 

;WRITE FORMAT, GO , 


sDID CNTRL RDY SET 

:YES, BRANCH 

;NO, HAVE U WAITED LONG ENOUGH? 

:1F NOT, LOOP BACK & WAIT 

IF YES, REPORT ERROR- 

:GO, GET RKCS, ER, DS.DA 

:GET DISK ADRES, WHERE ERROR OCCURED 
:G0 TO ‘BDA4* & BREAK CONTENTS OF 
:$REG10O INTO DR #,CYL,.SUR.SEC BITS 
:CNTRL RDY DID NOT SET ON COMPLETION 
:OF ‘WRITE FORMAT’, 
:SHOWN IN <DSK-ADRES> 
:WRT FAT WAS DONE STARTING AT <DSK-ADRES> 
: INDICATED IN EROR MSGE. 

:DID SIN BIT SET? 

;NO, BRANCH 

;G0, GET RKCS, ER, DS 

-GET, DISK-ADRES WHERE ERROR OCCURED 
:SIN SET WHILE DOING WRT FMT 


*CNTRL- 
CERTAIN TIME 


THE FIRST 


ON SECTOR AS 


SEQ 0065 


MD~11~-CZRKKF, 


CZRKKF. 


P11 


010700 
010704 


010706 
010712 


010714 
010716 
010720 
010724 
010726 
010732 


010734 


010736 


011002 


RK11 BASIC LOGIC TEST 2 
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004737 021226 


104032 


004737 
104033 


005201 
005205 
022702 
001002 
062705 
005202 


001313 


012702 


001270 


02127° 


177776 


000004 


177764 
000037 


000020 


000040 


MACY11 30A(1052) 


T23 CHECK 


4$: JSR 
ERROR 


5$: JSR 


6$: INC 


8$: ADD 


B 6 
21-FEu-78 08: 
"WRITE FORMAT’ OF 


PC, CHKHE1 


32 


PC, CHKDAT 


33 


58 PAGE 67 
THE DISK 


;TO DISK-ADRES (AS IN $REG3) 


:CHECK IF ‘ERR® OR ‘HES BIT IS SET 
:1F YES, RETURN HERE. 

;HE OR ERR SET WHILE DOING WRITE 
;FORMAT ON SECTOR AS INDICATED IN 

; <DSK-ADRES> 

;WRT FAT WAS DONE STARTING AT <DSK-ADRES> 
; INDICATED IN EROR MSGE. 

;CHECK IF RKDA INCREMENTED CORRECTLY, 
;1F NOT, RETURN HERE. 

:RKDA DID NOT INCREMENT CORRECTLY 
sAFTER ‘WRITE FORMAT’ WAS DONE 

;TO THE SECTOR PREVIOUS TO THAT 

: INDICATED IN ‘EXPCTD’ RKDA 

; INCREMENT TO THE NXT SECTOR 

; INCREMENT RS, TO WHAT RKDA WILL INCREMENT 
3R U GOING TO FORMAT THE LAST SECTOR 
:IN THE CYLINDER ? 

:1F NOT, BRANCH 

s INCREMENT RS CORRECTLY TO ‘EXPCTD RKDA' 
;HAVE U FORMATTED ALL 12 SECTORS 

;0N THIS CYLINDER 

;1F NOT, LOOP BACK & FORMAT THE 
sNEXT SECTOR 

; YES 

;RESET THE COUNT FOR 12 SECTORS 
;CLEAR THE SEC ADRES BITS 

;SURFACE 1? 

;YES, BRANCH 

3NO, SET FLAG 

; INCREMENT TO THE NXT SURFACE 

sTHIS IS WHAT RKDA SHGULD 

: INCREMENT TO. 

:GO, DO NXT SURFACE 

; INCREMENT TO NXT CYL 

;sPOSITION FOR 

sEXPCTD RKDA 


;HAVE U FORMATTED ALL 203 CYLINDERS 
; IF NOT, LOOP BACK & FORMAT THE 
;NEXT CYLINDER 


SRR RARER ETRE AEE A ATTA T A AAA AAA AT ETAT E TEAR eRe eee eee eee eee 
CHECK ‘READ FORMAT’ FOR THE ENTIRE DISK 
:*THIS TEST READ FORMATS THE ENTRE DISK, WHICH WAS WRT 


*TEST 24 


it aaa IN THE PREVIOUS TEST. 
- CNTRL ROY SETS WI\HIN A CERTAIN TIME ON COMPLETION 


THE FOLLOWING CHECKING 


FUNCTION 


. IF *SIN® OCCURRED? 

. IF ‘HE’ OR “ERR* OCCURRED? 

- RKDA INCREMENTED CORRECTLY. 

. IF THE CORRECT HEADER WAS READ. 


SEQ 0066 


MD~-11~CZRKKF, 


CZRKKF 


-P11 


011004 
011006 
011014 
011022 
011026 
011032 
011034 
011040 
011042 
011046 
011052 
011060 
011062 
011066 
011074 


011100 


011126 
011132 


000004 
012737 
012737 
005037 
013701 
010102 
005737 
001410 
052701 
052702 
012737 
000407 
012705 
012737 
062702 


104413 


104421 


072703 
005037 
010377 


013777 


010177 
012777 


000061 
011100 


001356 
001350 
001344 
014535 


014540 
177777 
177465 
177764 
000020 


033342 
001360 
170216 


001370 


170206 
002005 


RK11 BASIC LOGIC TEST 2 
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001206 
001110 


001370 


001370 


170206 


170172 


MACY11 30A(1052) 


T24 


:#12 SECTORS (1 CYLINDER) ARE READ AT A TIME. 


C 6 
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CHECK *READ FORMAT’ FOR THE ENTIRE DISK 


>*6. IF RKWC OVERFLOWED CORRECTLY. 


IF ‘SIN* 


>*OCCURS A DRIVE RESET IS DONE BEFORE READING THE NEXT 


> *SECTOR. 


READING IS DONE IN THIS ORDER CYL O-SUR 0; 


s*CYL O-SUR 1; CYL 1-SUR 0; CYL 1=SUR 1; CYL 2-SUR 0; 
:*CYL 2-SUR 1;----- 


:*THE LAST CYLINDER (312), 


CYL 312-SUR 1. 


LAST SECTOR (13), 


: -PHRERERERERERERE REE REE HEHE ee ee eeeTeteteeeeeeeeeetaneneeeeeees 


1$124: 


1$: 


11§: 


SCOPE 

MOV #1,STIMES 
MOV #1$,SLPERR 
CLR INDX1 

MOV DRIVAD,R1 
MOV oR2 

TST SIMUL 

BEQ 12$ 

BIS #145335,R1 
BIS #14540,R2 
BR 1$ 

MOV #-313,R5 
MOV #-14,EFLG1 
ADD #20,R2 

CNT .RESET 

TST.SIN 

MOV #OUTBUF ,R3 
CLR INDX2 

MOV R3,@RKBA 
MOV EFLG1,aRKwWC 
MOV R1,@RKDA 
MOV #2005,aRKCS 


;;D0 1 ITERATION 


;SET RETURN ADRES FOR LUPING 


; ON ERROR (SW 9) 

; INDX1=0, SURFACE 0 BEING READ 
; INDX1=1, SURFACE 1 BEING READ 
;GET DRIVE ADRES 


; TESTING ON SIMULATOR? 

;NO, BRANCH 

;SET BITS FOR CYL 312, SEC 13, SUR 1 
;ON SIMULATOR, CHECK ONLY CYL 312, 
;SECTOR 135, SURFACE 1 

;RKDA SHOULD INCRMNT TO THIS AFTR 
;RD FAT OF 1 SECTOR 

:SET COUNT FOR READING HDR 

FROM 1 SECTOR ONLY 


;SET UP COUNT FOR 203 CYLINDERS 
;SET COUNT FOR 12 HDRS TO BE 

sREAD FROM EACH CYLINDER 

> THIS IS WHAT RKDA SHOULD INCREMENT 
;BY, AFTER ‘RD FMT’ OF EACH CYLINDER 
:GO, DO CONTROL RESET 

:THIS IS A CALL FOR THE "CNTRL- 
RESET’ ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
IF THE ‘CNTRL RDY' DOES NOT SET 
;AN ERROR IS REPORTED. NOTE THAT 


;THE PC IN ERROR MESSAGE IS THE 
:PC WHERE "CNT.RESET’ IS LOCATED. 
;THIS IS A VERY BASIC ERR & IF IT 
:OCCURS GO BACK TO TEST 10 


;CHECK IF SIN IS SET 
;1F SET DO DRV-RESET TO CLR IT 


;STORE ADRES OF BUFFER 


;ADRES TO WHICH DATA IS TO BE X-FERRED 
;FROM THE DISK 

;SET UP WORD COUNT FOR 12 HEADERS 
;TO BE READ OFF EACH CYLINDER 

; (ONLY 1 FOR SIMULATOR) 

;ADRES THE DRIVE WITH CORRECT 
;CYLINDER & SECTOR ADRES 

;READ FORMAT, GO 


IF TESTING ON SIMULATOR, ONLY 
SURFACE 1 IS READ. 


SEQ 0067 





MD-11-CZRKKF, 
CZRKKF .P11 


011140 
011144 
011146 
011152 


011154 
011160 


011164 
011166 


011170 
011176 
011200 
011204 


011210 


011212 
011216 


011220 


011232 


011234 
011242 


011244 


011246 
011252 


011300 
011306 


105777 


001372 


004737 
010137 


104416 
104045 


032777 
001405 
004737 
010137 


104001 


004737 
104046 


020277 
001410 
010237 
104415 


017737 
164416 


104040 


013700 
010104 


062737 
104043 


170166 
001360 


020774 
001202 


001000 


021002 
001170 


021226 


170114 
001202 


170100 


001370 


160037 


001164 
001166 
0011 


62 
000014 001162 


RK11 BASIC LOGIC TEST 2 
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170130 


001202 


MACY11 30A(1052) 
T24 


2s: 


38: 


4$: 


5$: 


6$: 


7$: 


BRKDA4 
ERROR 


BRKDAO 


MOV 
BRKDA4 


ERROR 


D 6 
21-FEB-78 08: 
CHECK ‘READ FORMAT’ FOR 


@RKCS 
3$ 
INDX2 
2$ 


PC,GT4RG 
R1,$REG10 


45 


#1000,@RKDS 
4$ 


PC .GT5RG 
R1,$REG3 


1 


PC, CHKHE1 
46 


R2,@RKDA 
6$ 
R2,$REG10 


@RKDA, $REGI0 


40 


EFLG1,RO 


R1,R4 
#160037 ,R4 
R4,(R3) 

8$ 
R4,$REG1 
(R35), $REG2 


RO,$REGO 
#14,$REGO 


43 


58 PAGE 69 
THE ENTIRE DISK 


:DID CNTR1 RDY SET? 

; YES, BRANCH 

3;NO, HAVE U WAITED LONG ENOUGH? 
:1F NOT, LOOP BACK & WAIT FOR IT 
:1F YES, REPORT ERROR 

;GO, GET RKCS, ER, DS,DA 

:GET DRIV-ADRES STARTING WHICH 

; "READ FORMAT’ WAS DONE 

:GO TO "BDAS’ & BREAK CONTENTS OF 


SEQ 0068 


;$REG10O INTO DR #,CYL, wet SEC BITS 
:CNTRL RDY DID NOT SET AFTER 
;READ FORMAT. ‘RKDA* IN EROR MSGE 


:GIVES THE CONTENTS OF RKDA AT THE 

> TIME OF ERROR. 

sREAD FAT WAS DONE STARTING AT <DSK~ADRES> 
; INDICATED IN EROR MSGE. 


:DID ‘SIN’ SET? 

7NO, BRANCH 

:G0, GET RKCS, ER, DS 
:GET DISK-ADRES WHERE 
; OCCURED 

;SIN ERROR ON DOING RD FMT 
:TO CYL INDICATED IN $REG3 


CHECK IF 
IF YES, RETURN HERE. 

;HE OR ERR WHILE DOING A READ 
; FORMAT. 
>THE CONTENTS OF RKDA AT THE TIME OF ERROR 
sREAD FMT WAS DONE STARTING AT <DSK-ADRES> 
: INDICATED IN EROR MESGE 

:DID RKDA INCREMENT CORRECTLY BY 12 SEC 


;GET EXPCTD RKDA 

:GO TO "BDAOQ’ & BREAK CONTENTS OF 
;S$REG1O INTO DR #,CYL,.SUR,SEC BITS 

;GET RECVD RDKA 

;GO0 TO ‘BDA4S* & BREAK CONTENTS OF 
>$REG1O INTO DR #,CYL,SUR.SEC BITS 

;RKDA DID NOT INCREMENT BY 12 SECTORS 
;AFTER RD FMT WAS DONE. ADRES 

;OF CYLINDER IN ERROR CAN BE OBTAINED 
>FROM ‘EXPCTD' RDDA 

;SET UP COUNT FOR 12 HEADERS TO B CHKD 
;(ONLY 1, IF SIMULATOR) 

;GET DRIV-ADRES FROM WHERE RDFMT WAS DONE 
;GET THE CYLINDER ADRES ONLY. 
;1S THE RECVD HEADER SAME AS EXPCTD? 


;GET EXPCTD HEADER WORD 
;GET HEADER WORD RECVD 


;GET THE SECTOR (OCTAL NO) WHICH DID 
;NOT GIVE THE CORRECT HEADER 
;DID NOT RECIEVE THE CORRECT HEADER 


"SIN' 


"ERR' OR ‘HE’ BIT IS SET, 


*RKDA* IN EROR MSGE GIVES 


(HEADER) 


MD~-11-CZRKKF, RK11 BASIC LOGIC TEST 2 
21-FEB-78 0 


CZRKKF 


-P11 


011310 


011312 
011314 


011316 
0113522 


0113524 
011350 


011332 
011336 
011340 
011344 
011350 
011352 


011356 
011362 
011366 
011372 
011376 
011400 
011404 
011406 
011410 


005723 
005200 
001361 
004737 
104041 


005737 
001031 


005737 
001011 
005237 
062701 
010102 
062702 


000137 


000137 


021316 


001344 


001356 


001356 
000020 


000020 
011100 
001356 
000037 
000040 


000020 


011100 


MACY11 30A(1052) 


8$: TST 


9$: TST 


10$: CLR 


E 6 
21-FEB-78 08: 
T24 CHECK "READ FORMAT’ FOR 


(R3)+ 


RO 
7$ 


PC, CHKWC 


41 


R1,R2. 
#20,R2 


58 PAGE 70 
THE ENTIRE DISK 


;WORD FROM ‘SECTOR’ AS INDICATED 

; (NOTE SECTOR # IS OCTAL) 

; INCREMENT POINTER TO THE NXT WORD 

; IN MEMORY WHERE THE RECVD HDR IS STORED 
;HAVE U CHECKED ALL 12 HEADERS? 

;1F NOT, LOOP BACK & CHK THE NXT. 
;YES, ALL HEADERS FOR THIS CYLINDER 
; CHECKED. 

;CHECK IF RKWC OVERFLOWED TO O, IF 
;NOT RETURN HERE. 

;RKWC DID NOT OVERFLOW AFTER DOING 
;RDOFMT OF 12 SECTORS ON THE CYLINDER 
;NOTE THAT ‘RKDA’ IS THE INCREMENTED 
;RKDA AFTER THE RDFMT 

;TSTING ON SIMULATOR? 

ine YES, EXIT 


“DOING SURFACE 1 
2 BRANCH 


: INCREMENT DRIV ADRES TO THE NXT SURFACE 


;THIS IS WHAT RKDA SHOULD INCREMENT 
;T0, AFTER READ FMT OF THE CYLINDER 
>GO RD FAT THE NXT SURFACE 


:CLR SEC, SURFACE BITS 

; INCREMENT TO NXT CYL 

;THIS IS WHAT RKDA SHOULD BE 

; AFTER RD FMT OF CYLINDER 

ee DONE ALL CYLINDERS? 

; IF NOT, LOOP BACK & READ FMT FROM 
; THE NXT CYLINDER 


PES SESS Ici IIIT tri rit i ricci iii i iii iii itiiiiiiiiiitititiiiiity 
CHECK ‘READ’ OF THE ENTIRE DISK 
>*READ OF THE ENTIRE DISK (CONE WORD PER SECTOR) IS DONE 


s*TEST 25 


:*IN THIS TEST. 


IN A PREVIOUS TEST THE FIRST WORD OF 


stEVERY SECTOR WAS WRITTEN LIKE A PSUEDO-HEADER (DRIVE #, 


;*CYLINDER #, SURFACE & SECTOR #). 


THESE PSUEDO HEADERS 


;tWILL BE READ & CHECKED IN THIS TEST, PROVING THAT ANY 
:*SECTOR CAN BE ACCESSED AND READ. 

;*THE FOLLOWING CHECKING IS DONE 

:*1. CNTRL RDY SETS WITHIN A CERTAIN TIME ON COMPLETION 
:*OF FUNCTION. 


#2. IF *SIN' OCCURRED? 


:*3. IF ‘HE’ OR ‘ERR’ OCCURRED? 
;*4,. THE CORRECT FIRST WORD FROM EVERY SECTOR 


:*WAS RECEIVED. 


THIS WORD REFLECTS THE ABSOLUTE 


;*DISK ADDRESS (DRV #, CYL #, SUR, SEC#) OF THAT SECTOR. 
;*5. IF RKOB CONTAINED THE CORRECT WORD. 
*IF ‘SIN’ OCCURS DRIVE RESET IS DONE BEFORE READING 


;*THE NEXT SECTOR. 


READ IS DONE IN THIS ORDER SEC 0-11 


;*CYL O SUR 0 -> SEC 0-11 CYL 0 SUR 1 => SEC O-117 CYL 1,.... 


Sa ae 
SEQ 0069 


MD-11-CZRKKF, 
CZRKKF .P11 


011414 
011416 
011424 


011432 
011436 


011440 
011444 
011450 
011452 
011456 
011460 
011464 


011470 


011472 


011474 
011500 


011504 
011512 


011516 
011524 


011540 
011544 
011550 


011552 


000004 
012737 
012737 


012703 
005004 


013701 


012700 
012705 


104413 


104421 


005037 
010377 


012777 
010177 


012777 


105777 
100411 
005237 
001372 


004737 
010137 
104416 


104045 


032777 
001405 
004737 


000001 
011470 


033342 
001350 
001344 
014533 


177764 
177465 


001356 
167632 


177777 
167622 


000005 
167602 
001356 


020774 
001202 


001000 
021002 


RK11 BASIC LOGIC TEST 2 
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001206 
001110 


167622 


167606 


167544 


MACY11 30A(1052) 
CHECK *READ* OF THE ENTIRE DISK 


T25 


F 6 
21-FEB-78 08:58 PAGE 71 


SEQ 0070 


:t1F TESTING ON SIMULATOR ONLY LAST CYLINDER (312), LAST 


:*SECTOR (13), 


SURFACE 1 IS READ 


SFR AA AAA AAA ATER AAA AAT AAA ERE AEE KKH 


TST25: 


108: 


1$: 


8$: 


2$: 


3$: 


SCOPE 

MOV #1,STIMES 
MOV #1$,SLPERR 
MOV #OUTBUF ,R3 
CLR R4 

MOV DRIVAD,R1 
TST SIMUL 

BEQ 10$ 

BIS #14533,R1 
BR 1$ 

MOV #-14,R0 
MOV #=313,R5 
CNT.RESET 

TST.SIN 

CLR INDX1 

MOV R3,@RKBA 
MOV #-1,aRKwC 
MOV R1,@RKDA 
MOV #5,aRKCS 
TSTB a@RKCS 

BMI 3$ 

INC INDX1 

BNE 2$ 

JSR PC,GT4RG 
MOV R1,$REG10 
BRKDA4 

ERROR 45 

BIT #1000 ,aRKDS 
BEQ 4% 

JSR PC,GT3RG 


;;00 1 ITERATION 
;SET RETURN ADRES FOR 
;LOOPING ON ERROR (SW9) 


;FLAG, CLEAR WHEN READING SURFACE 0 
;SET WHEN READING SURFACE 1 

;GET DRIVE ADDRESS 

:TSTING ON SIMULATOR? 

;1F NOT BRANCH 

;SET ADRES BITS FOR LAST CYL (312) 
;LAST SECTOR (13), 
;SET COUNT FOR 12 SECTORS 

;SET UP COUNT FOR 203 CYLINDERS 


:GO, DO CONTROL RESET 
;THIS IS A CALL FOR THE 
;RESET’ ROUTINE. A CONTROL RESET IS 
: ISSUED AND AFTER A CERTAIN TIME 
;1F THE *CNTRL RDY" DOES NOT SET 
;AN ERROR IS REPORTED. NOTE THAT 
:THE PC IN ERROR MESSAGE IS THE 

;PC WHERE ‘CNT.RESET® IS LOCATED. 
>THIS IS A VERY BASIC ERR @ IF IT 
;OCCURS GO BACK TO TEST 10 

:GO CHECK SIN, 
;DRIVE RESET TO CLR IT 


;ADRES TO WHICH DATA IS TO B X-FERRED 
>FROM THE DISK 

;SET UP WORD COUNT 

sADRES THE DRIVE WITH CORRECT 
;CYLINDER & SECTOR ADRES 

;READ, GO 


:DID CNTRL RDY SET? 

:YES. BRANCH 

3NO, HAVE U WAITED LONG ENOUGH 

:1F NOT, LOOP BACK & WAIT FOR IT 
sIF YES, REPORT ERROR 

:GO, GET RKCS, ER, DS.DA 

:GET DISK-ADRES WHERE ERROR OCCURED 
;GO TO ‘BDA4* & BREAK CONTENTS OF 
;$REG10O INTO DR #,CYL.SUR,SEC BITS 
:CNTRL RDY DID NOT SET AFTER DOING 


SURFACE 1 


*CNTRL- 


IF SET DO 


A 1 WORD READ FROM ADRES AS 
INDICATED IN <DISK-ADRES> 


:"RKDA' IN EROR MSGE GIVES THE 
: CONTENTS OF RKDA AT THE TIME OF ERROR 


:D1D ‘SIN’ SET? 
7NO, BRANCH 
:G0, GET RKCS, ER, DS 


MD-11-CZRKKF, 
CZRKKF P11 


011570 
011574 


011576 
011602 


011604 
011606 
011610 
011614 
011620 
011624 


011626 
011632 
011634 
011640 
011646 


011650 
011654 
011656 
911660 
011662 


011664 
011670 
011674 
011676 
011700 
011702 
011706 
011710 
011712 
011716 
011720 


010137 
104001 


004737 
104046 


020113 
001407 
010137 
011337 
010137 
104044 


020177 
001406 
010137 
017737 
104037 


005737 


001302 
012700 


001263 


001170 


021226 


001162 
001164 
001166 


167510 


001162 
167476 


001344 


177764 
000037 


000020 


000040 


RK11 BASIC LOGIC TEST 2 
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001164 


MACY11 30A(1052) 
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4$: 


5$: 


6$: 


7$: 


9$: 


G 6 
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CHECK ‘READ’ OF THE ENTIRE DISK 


MOV R1,$REG3 ;GET DISK-ADRES WHERE SIN OCCUREDS 
ERROR 1 ;"SIN* ERROR ON DOING READ FROM 
;DISK-ADRES INDICATED IN $REG3 


JSR PC ,CHKHE1 ;CHECK IF ‘ERR’ OR ‘HE’ BIT IS SET, 
IF YES, RETURN HERE. 
ERROR 46 ;"HE* OR ‘ERR’ ON DOING A READ OF 


;1 WORD FROM ADRES AS INDICATED 

; IN <DISK-ADRES> 

;"RKDA’ IN EROR MSGE GIVES THE 
;CONTENTS OF RKDA AT THE TIME OF EROR 
;WAS THE CORRECT DATA WORD RECVD? 


;GET EXPCTD DATA WORD 


CMP R1,(R3) 
6$ 
MOV R1,$REGO 


MOV (R3),$REG1 ;GET DATA WORD RECVD 
MOV R1,$REG2 ;GET DISK-ADRES 
ERROR 44 ;DID NOT RECIEVE THE CORRECT 


sDATA WORD FROM DISK ON DOING 
;1 WORD READ FROM ‘'DISK-ADRES' 
AS INDICATED BY "EXPCTD’ DATA WORD 
;NOTE THAT IN A PREVIOUS TEST THE 
;FIRST WORD OF EACH SECTOR IS UNIQUELY 
;WRITTEN WITH A WORD GIVING THE 
;ABSOLUTE ADDRESS OF THAT SECTOR IN 
;TERMS OF, DRIV #, CYL ADRES, SUR, SEC ADRS. 

CMP R1,@RKDB ;DOES RKDB CONTAIN CORRECT WORD 

BEQ 7$ :YES, BRANCH 

MOV R1,$REGO ;NO, GET EXPCTD RKDB 

MOV @RKDB, SREG1 :GET RKDB RECVD 

37 ;RKOB ERROR ON READ. 
;FOR RK11C, AFTER A READ RKDB 
:CONTAINS CHECKSUM FOR THE SECTOR 


;READ. 

;WHEREAS FOR RK11D, AFTER READ 
:RKDB CONTAINS THE LAST WORD 
:READ FROM THAT SECTOR & 
;X-FERRED TO MEMORY 


TST SIMUL ;TESTING ON SIMULATOR? 

BNE TST26 ssiF VES. EXIT 

INC R1 ; INCREMENT TO ADRES NEXT SECTOR 
INC RO ;HAVE U CHKD ALL 12 SECTORS? 

BNE 1$ 7 IF NOT, LUP BAK & CHK THE NXT 


cif: TGSe. 
:RESET THE COUNT FOR 12 SECTORS 
;CLEAR SECTOR, SURFACE BITS 


TST 4 ; DOING SURFACE 1? 

BNE 9$ iYES, BRANCH 

INC R4 NO 

ADD #20,R1 INCREMENT THE ADRES TO NXT SURFACE 

BR 1$ :60 READ SURFACE 1 

CLR R4 

ADD #40,R1 s INCREMENT TO NXT CYL 

INC R5 sHAVE U CHKD ALL 203 CYLINDERS 

BNE 1$ ce" LOOP BACK & CHK THE NXT CYLINDER 
Oh 


SEQ 0071 


MD~-11-CZRKKF, RK11 BASIC LOGIC TEST 2 
CZRKKF P11 


011722 
011724 
011732 


011736 
011742 
011746 
011752 
011756 


011764 
011766 


011770 


011772 
011776 
012000 
012004 
012010 


012012 


012014 


012034 


012036 
012042 
012044 


000004 
012737 
012703 


005037 
013700 
013701 
013702 
012737 


000240 
104413 


104421 


013704 
051304 
010477 
012710 
104412 


104021 


005005 


104026 


032711 
001403 
004737 
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000005 
001372 
001356 
001332 
001326 


001330 
011764 


001350 


167334 
000011 


00010 


020774 


001000 
020774 


001206 


001110 
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126 CHECK *SEEK' FUNCTION, WITH DIFFERRENT VELOCITY MODES 


SPUR AA KARA AEE eRe HARARE ee terese 


;*TEST 26 


:* 3 °< DIFF < 31, DIFF > 31). 


CHECK "SEEK* FUNCTION, WITH DIFFERRENT VELOCITY MODES 
;* THIS TEST CHECKS SEEK IN DIFFERENT VELOCITY MODES (DIFF <3, 


SSR AAAR ARATE AERA RAEEEAEATEEAEARARE TEETER e 


TST26: 


4$: 
5$: 


6$: 


SCOPE 

MOV #5, STIMES 
MOV #SEEKO,RS 
CLR INDX1 

MOV RKCS,RO 
MOV RKDS,R1 
MOV RKER,R2 
MOV #1$,SLPERR 
NOP 

CNT.RESET 

TST.SIN 

MOV DRIVAD ,R4 
BIS (R3),R4 
MOV R4,@RKDA 
MOV #11,aR0 
CHKCRDY 

ERROR 21 

CLR R5 

BIT #100,aR1 
BNE 6$ 

INC R5 

BNE 5$ 

JSR PC,GT4RG 
ERROR 26 

BIT #1000,aR1 
BEQ 7$ 

JSR PC .GT4RG 


;;00 5 ITERATIONS 


; INITIALIZE POINTER TO THE FIRST 


; SEEK ADDRESS 
; INDX1, WHEN 0 INDICATES SEEK IN FWD DIRECTION 


; WHEN 1 IF. CATES SEEK IN REV DIRECTION 


;SET RETURN ADRES FOR LUPING ON 


;EROR (SW 


9) 
;GO, DO CONTROL RESET 


;THIS IS A CALL FOR THE ‘CNTRL- 
;RESET* ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
;1F THE *CNTRL RDY' DOES NOT SET 
;AN ERROR IS REPORTED. NOTE THAT 

; THE PC IN ERROR MESSAGE IS THE 

:PC WHERE ‘CNT.RESET* IS LOCATED. 
;THIS IS A VERY BASIC ERR @ IF IT 


;OCCURS GO BACK TO TEST 10 


:GO, CHECK IF SIN IS SET, IF SET 


:D0 DRV-RESET TO CLEAR IT 


:GET DRIV-ADRES 
:SET CYLINDER BITS 
ZADDRS THE DRIVE 
;SET "SEEK", 'GO" 


;GO CHECK IF CONTROL RDY IS SET 


;IF SO, SKIP THE EROR MESSAGE. 
;"CNTRL RDY' DID NOT SET AFTER 
;SENDING CYL ADD TO THE DRIV, 


‘ADD ACK* 


>FROM DRIVE SHLD HAVE COME BACK 


; THEREUPON SETTING "CNTRL RDY' 
;DID R/W/S RDY SET? 
CH 


:NO, WAIT 


;WAITED LONG? 

;GO, GET RKCS, ER, DS, DA 
;R/W/S RDY DID NOT SET ON 
;COMPLETION OF SEEK 

:DI0 SIN SET? 

;NO, BRANCH 

:;GO, GET RKCS, ER, DS, DA 


SEQ 0072 


FOR THESE 3 BASIC VELOCITIES SEEK IS DONE BOTH 
;* IN FWD AND REV DIRECTION TO CHECK THE ADDER & DIFFERENCE LOGIC. IF 

;* WHILE DOING A SEEK ‘SIN’ OCCURS, A DRIVE RESET IS DONE TO INITIALIZE 

;* THE POSITIONING LOGIC 


MD~11-CZRKKF, 


CZRKKF. 


Pil 


012050 
012052 
012056 
012060 
012064 


012066 


012106 


012110 


012130 


012132 
012136 


012204 


012206 


012240 


104001 
AL 


104022 


022710 
001406 
011037 
012737 
104024 


020477 
001406 
010437 
017737 
104027 


010477 
012777 
012777 
012710 
104414 
021337 
001410 
005037 
011337 
013737 
104043 


005737 


001251 


RK11 BASIC LOGIC 
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140000 
020774 


000210 


001164 
000210 


167224 
001162 
167212 


167202 
033342 
177777 
002005 
035342 
001162 


001164 
033342 


001356 


001400 
001356 


001370 


TEST 2 


001162 


001164 


167172 
167162 


001166 


MACY11 30A(1052) 
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7$: 


8$: 


10$: 


11$: 


12$: 


ERROR 
BIT 


CNT .RDY 


1 6 
21-FEB-78 08:58 PAGE 74 
CHECK “SEEK* FUNCTION, WITH DIFFERRENT VELOCITY MODES 


1 
#140000 ,aRr0 
8$ 


PC,GT4RG 
22 


#210,aR0 
9$ 


@RO,$REG1 
oo 


R4,@RKDA 
10$ 


R4,$REGO 
@RKDA, $REG1 
27 


R4,@RKDA 
#OUTBUF ,@RKBA 
#-1 ,aRKwWC 
#2005 ,aR0 


(R3) ,OUTBUF 
11$ 


SREGO 
(R35), SREG1 
on ne 


(R3)+ 
-{ eiakttiae 


INDX1 

~(R3) 

-(R3) 
#SEEKO-2,R3 
1$ 


:SIN SET ON DOING SEEK 

:DID ‘HE’ OR ‘ERR’ SET? 

YES 

:GO, GET RKCS, ER, DS, DA 
"ERR OF ‘HE* BIT SET WHEN 

; SEEKING TO CYL AS INDICATED 
; IN RKDA 


oo "sate STILL CONTAIN THE ‘SEEK FNCTION 
;NO, GET RKCS RECVD 


:GET EXPCTD RKCS 
;RKCS SHOULD CONTAIN THE 
;1F NOT, ERROR 


"SEEK’ BITS 


i010 RKDA CHANGE? 


NC 
:YES, GET EXPCTD? 
;GET RKDA 

;RKDA CHANGED AFTER DOING SEEK 


; ADRES THE DRIVE,SEC 0 

;READ ONE HEADER INTO THIS 

;BUS ADRES 

:GO,READ FORMAT 

;WAIT FOR CNTRL RDY 

:WAS THE CORRECT READE4R READ (FROM 
:CYLINDER TO WHICH SEEK WAS DONE BEFORE) 
:STORE SEC # FROME WHERE HDR WAS RD (0) 
:GET EXPCTD HEADER 

:GET HDR RECVD 

WRONG HDR WAS RECVD FROM CYLINDER (ADRES 
:IN ER MSGE). 
:DONE TO THIS CYL BEFORE READING HDR 
USING READ FORMAT 

:SEEK IN REVRSE DIRECTION? 

;YES, BRANCH 

3NO, INCREMENT PTR TO NXT SEEK ADRES 
:DONE WITH ALL SKS IN FWD DIR? 

:NO, GO & DO NXT ONE 

;SET FLAG INDICATING SK IN REVRSE 


;POSITION PTR TO NXT SK IN REV 
;DONE WITH ALL? 
;1F NOT, DO NXT ONE 


NOTE THAT A PURE SEEK WAS 


ERRATA EET EAA AERA ATER EAA EERE KARAT AARAE RRA ERARETE 


CHECK DRIVE RESET FROM LAST CYLINDER 


S*TEST 27 


;*THE HEADS ARE POSITIONED ON THE LAST CYLINDER (DOING 


;tAN IMPLIED SEEK-READ). 


THEN A DRIVE RESET IS ISSUED. 


;tIT'S CHECKED IF THE HEADS WERE BROUGHT BACK TO 0 BY 
;*DOING A 1 WORD READ & CHECKING THAT THE CORRECT WORD 


;*WAS RECEIVED. 


IF TESTING ON SIMULATOR THIS TEST IS SKIPPED. 


SURE EEEREEEEEE EEA EEA EAA A AAR AAA AAA AKER ARREARS 


SEQ 0073 


MD~11-CZRKKF, RK11 BASIC LOGIC TEST 2 


CZRKKF 


3998 
3999 


-P11 


012242 
012244 
012252 
012256 
012260 
012264 


012266 
012270 
012274 
012300 
012502 
012306 
012312 
012320 


012524 


012330 
012332 


012334 
012336 
012340 
012544 
012350 
012354 


012356 
012362 


012364 


012376 


000004 
012737 
005737 
001124 
013701 
104413 


005000 
012703 
013704 
010405 
052705 
010577 
012777 
010377 


012711 


005000 
104414 


020513 
001407 
010537 
011337 
010537 
104044 


012711 
104414 


005000 
032777 
001011 
012702 
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000005 001206 
001344 


001332 


033342 
001350 


014500 
167026 
177777 
167012 


000005 


001162 
001164 
001166 


000015 


000100 
177763 


167014 


166732 4$: 


J 6 
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1$: 


2$: 


38: 


CHECK DRIVE RESET FROM LAST CYLINDER 


SCOPE 

MOV #5, STIMES ;;D0 5 ITERATIONS 

TST SIMUL ;R U ON A SIMULATOR? 

BNE TST30 ;; YES, EXIT 

MOV RKCS,R1 ‘ 

CNT.RESET :GO, DO CONTROL RESET 
;THIS IS A CALL FOR THE ‘CNTRL- 
;RESET’ ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
;1F THE *CNTRL RDY* DOES NOT SET 
;AN ERROR IS REPORTED. NOTE THAT 
;THE PC IN ERROR MESSAGE IS THE 
;PC WHERE ‘"CNT.RESET*® IS LOCATED. 
;THIS IS A VERY BASIC ERR & IF IT 
;OCCURS GO BACK TO TEST 10 

CLR RO 

MOV #OUTBUF ,R3 ;ADRES WHERE DATA WILL BE READ INTO 

MOV DRIVAD,R4 


R4,R5 
BIS #14500,R5 
MOV R5,@RKDA 
MOV #-1 ,aRKWC 
MOV R3,@RKBA 


;SET CYL ADRES=312 (OCTAL) 
;ADRES THE DRIVE, LAST CYLINDER 
;READ 1 WORD 

; INTO THIS MEMORY ADRES 


MOV #5,aR1 ;READ, GO 
CLR RO 
CNT.RDY ;THIS IS A CALL FOR CN.RDY ROUTINE 


sWHICH WAITS FOR CNTRL RDY TO SET. 
sA RETURN IS MADE AFTER CNTRL RDY 
;SETS. IF WITHIN A CERTAIN TIME 
;CNTRL RDY DOESN*T SET AN ERROR 
sMESSAGE IS GIVEN. WAITING TIME 

:883 MS FOR 11/20, 175 MS FOR 11/45 
;WAS THE CORRECT WORD READ? 

;YES, SEEK TO 312 WAS DONE CORRECTLY5S.@ 
;GET EXPCTD WORD 

;GET WORD RECVD 

;GET DSK-ADRES FROM WHERE WORD WAS READ 
;DID NOT READ BACK CORRECT WORD FROM 
sLAST CYL, SEC 0. IF TEST 45 & 46 
;WERE SUCCESSFULLY DONE THIS 

sERROR MEANS THAT IMPLIED SEEK 

;TO CYL 312 COULD NOT B DONE 

;DRIVE RESET, GO 

;THIS IS A CALL FOR CN.RDY ROUTINE 
;WHICH WAITS FOR CNTRL RDY TO SET. 
;A RETURN IS MADE AFTER CNTRL RDY 
;SETS. IF WITHIN A CERTAIN TIME 
;CNTRL RDY DOESN'T SET AN ERROR 
sMESSAGE IS GIVEN. WAITING TIME 

;883 MS FOR 11/20, 175 MS FOR 11/45 


RO 
BIT #100, @RKDS ;DID R/W/S RDY SET? 
BNE 5$ ;YES, BRANCH 
MOV #-15,R2 ;I1F UR ON A SLOWER MACHINE 


CMP R5,aR3 
3$ 


MOV R5,$REGO 
MOV @R3,$REG1 
MOV R5,SREG2 
ERROR 44 


MOV #15,aR1 
CNT.RDY 


SEQ 0074 


MD~11-CZRKKF, 


CZRKKF 


4054 
4055 
6 


-P11 


012402 
012404 


012406 
012410 


012412 
012416 


012420 
012424 


012426 
012432 


012434 
012436 
012442 
012444 
012450 
012456 


012460 
012466 
012472 


012476 


012502 
012504 


012506 
012510 
012512 
012516 
012522 
012526 


005202 
001376 


005200 
001366 


004737 
104026 


032711 
001403 


004737 
104022 


005205 


104054 


012777 
010377 
010477 


012711 


005000 
104414 


020413 
001407 
010437 
011337 
010437 
104044 


020774 


140000 


020774 


166676 


001162 
166664 


177777 
166644 
166642 


000005 


001162 
001164 
001166 


RK11 BASIC LOGIC TEST 2 
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001164 


166646 


MACY11 30A(1052) 
T27 


5$: 


6$: 


7$: 


8$: 


9$: 


INC 
BNE 


CNT.RDY 


CMP 
BEQ 
MOV 
MOV 
MOV 
ERROR 


K 6 
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CHECK DRIVE RESET FROM LAST CYLINDER 


Re 
4 


RO 
4$ 


PC,GT4RG 
26 
#140000,aR1 
6$ 
PC,.GT4RG 
22 

R5 


R5,@RKDA 
7$ 


R5,S$REGO 
eon 


#-1 ,aRKwC 
R3,@RKBA 
R4,@RKDA 


#5,aR1 
RO 


aR3,$REGI 
R4, $REG2 
gh 


;& DO NOT NEED SUCH A LARGE MACHINE 
;TIME LOOP, CHANGE THESE 3 


; INSTRUCTIONS TO ‘NOP’ THE 
:LOOP TIME WILL BE REDUCED 
:10 1100 MS 


‘THE TOTAL TIME FOR THE ABOVE 
;LOOPS (W/O PUTTING ‘NOP'S) IS 
;5304 MS FOR 11/20 AND 

:1061 MS FOR 11/45 WITH MOS 
;OR BIPOLAR MEMORY 


;WAITED LONG? 

;1F NOT, LUP BAK & WAIT 
IF YES, ERROR 

:GET RKCS, ER,DS,DA 


R/W/S RDY DID NOT SET AFTER 
;DOING DRIVE RESET 

:DID HE OR ERR BIT SET? 

IF NOT, BRANCH 


;GET RKCS,ER,DS,DA FOR ERROR MESSAGE 
;HE OR ERR BIT SET ON DOING DRIVE 
;RESET FROM LAST CYLINDER 

;POSITION R5 TO EXPCTD RKDA 

:DID THE CYL ADRES BITS IN RKDA GET CHANGED? 
NO, BRANCH 

>GET EXPCTD RKDA 

;GET RKDA RECVD 

sCYLINDER ADRES BITS IN RKDA 

:GOT CHANGED AFTER 

sDRIVE RESET, FROM LAST CYLINDER 
;READ 1 WORD 

; INTO THIS ADRES 


>FROM THIS DSK ADRES-CYL 0, SEC 0 
;READ, GO 


;THIS IS A CALL FOR CN.RDY ROUTINE 


sWHICH WAITS FOR CNTRL RDY TO SET. 


A RETURN IS MADE AFTER CNTRL RDY 
;SETS. IF WITHIN A CERTAIN TIME 
;CNTRL RDY DOESN'T SET AN ERROR 
sMESSAGE IS GIVEN. WAITING TIME 
;883 MS FOR 11/20, 175 MS FOR 11/45 
;WAS THE CORRECT WORD READ? 

2:YES, EXIT 

;GET EXPCTD WORD 

;GET WORD RECVD 

:GET DISK ADRES WHERE ERROR OCCURED 
;DID NOT READ CORRECT WORD FROM 
;CYL 0, SEC 0. IF TEST 45 & 46 
;WERE SUCCESSFULLY DONE THIS 

;ERROR COULD MEAN THAT DRIVE-RESET 
;DID NOT BRING HEADS BACK TO 0. 


SEQ 0075 


MD-11-CZRKKF, 


CZRKKF 


4110 
4111 
4112 
4113 
4114 
4115 
4116 
4117 


-P11 


012530 
012532 


012534 
012536 


012542 


012556 
012562 


012572 
012574 


012576 
012604 
012612 
012620 


012624 
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000004 
104413 


104421 
013704 


012700 
012701 
012702 
012703 


010320 
005202 
060103 
010320 
005202 
001374 


012777 
012777 
013777 
012714 


105714 


001332 


033342 
177401 
177400 
177400 


177400 
033342 
001350 


000003 


166530 
166524 
166520 
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CHECK DRIVE RESET FROM LAST CYLINDER 


SS RAAAAAAAAAEAATEAA HEA AAAAE HARA AAAATAAAHAAAEEEEEHEARKKEARKREEE KER EEES 


-*TEST 30 


rs 730: 


2$: 


;THE FOLLOWING TEST. 


"WRITE - 256 WORD BLOCK ON SECTOR 0, CYLINDER 0 
>THE TEST BELOW SHOULD BE CONSIDERED AS A SET UP PHASE FOR 


IT WRITES A BLOCK OF 256 WORDS 


IN 
;SECTOR 0, CYLINDER 0 WITH A SPECIFIC PATTERN AND THIS WRITTEN 
;BLOCK WILL BE MADE USE OF IN THE NEXT TEST TO CHECK 
;OUT "WRITE-CHECK® AND ‘READ CHECK’ FUNCTIONS. 


PTTITITITT LITLE TITTLE LLL LLL LLL TELL LEE LEE 


SCOPE 
CNT.RESET :GO, DO CONTROL RESET 
;THIS IS A CALL FOR THE ‘CNTRL- 
s;RESET* ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
;1F THE *CNTRL RDY' DOES NOT SET 
;AN ERROR IS REPORTED. NOTE THAT 
;THE PC IN ERROR MESSAGE IS THE 
PC WHERE ‘CNT.RESET* IS LOCATED. 
;THIS IS A VERY BASIC ERR& IF IT 
;OCCURS GO BACK TO TEST 10 
TST.SIN ;CHECK IF SIN IS SET, IF SET 
:D0 DRIVE RESET TO CLEAR IT 
MOV RKCS,R4 
>THE FOLLOWING CODE IS FOR SETTING 
;UP THE 1/0 BUFFER IN MEMORY (STARTING AT 
;OUTBUF), WITH A PARTICULAR 256 WORD PATTERN. 
; STARTING FROM THE FIRST WORD IN THE BUFFER 
>THE LO BYTE WILL BE A COUNT PATTERN 
>FROM 0 TO 255 (DECIMAL), WHEREAS THE 
;HI-BYTE WILL BE THE COMPLEMENT OF LO BYTE, 
A DECREASING COUNT PATTERN FROM 255 TO 0. 
:1.E.THE BUFFER WILL LOOK LIKE: 
; OUTBUF (1 111 1171 1 00 000 000) 
; OUTBUF +2 (1 111 111 0 00 000 001) 
;LAST WORD (0 000 000 0 11 111 111) 
MOV #OUTBUF ,RO 
MOV #177407 ,R1 :PATTERN GENERATING NUMBER 
MOV #-400,R2 :SET UP COUNT FOR 256 WORDS 
MOV #177400,R3 ;SET UP THE FIRST PATTERN TO B WRITTEN 
MOV R3,(RO)+ ;SET UP FIRST WORD IN I/O BUFFER 
INC R2 ; INCREMENT COUNT 
ADD R1,R3 3SET UP NEXT WORD PATTERN 
MOV R3,(RO)+ ;WRITE IT IN NXT I/0 BUFFER WORD 
INC Re ;HAVE U WRITTEN ALL 256 WORDS 
BNE 1$ ;1F NOT GO & WRITE NEXT PATTERN 
MOV #-400 ,aRKWC ;WRITE 256 WORDS 
MOV #OUTBUF ,@RKBA ;STARTING FROM THIS BUS ADRES 
MOV DRIVAD,@RKDA ;TO THIS DISK ADRES, CYL 0, SEC 0 
MOV #3,aR4 ;WRITE, GO 
TSTB aR4 ;WAS CNTRL RDY CLEARED AS GO WAS SET? 


SEQ 0076 


MD~11-CZRKKF, 
CZRKKF .P11 


012626 
012630 
012634 


012636 
012640 
012644 
012646 
012650 


012652 
012656 
012664 


012666 


012670 
012674 


012676 
012702 
012704 
012710 
012716 


012720 
012724 
012726 
012732 
012734 
012740 
012742 
012750 


012756 
012762 


100003 
004737 
104030 


005002 
105777 
100411 
005202 
001373 


004737 
013737 
104416 


104031 


004737 
104032 


020077 
001406 
010037 
017737 
104035 


004737 
104034 
004737 
104033 
004737 
104036 
022714 
012737 


011437 
104024 


021002 


166466 


020774 
001350 


021234 


166434 


001162 
166422 


021316 


021262 


021342 


000202 


000202 
001164 


RK11 BASIC LOGIC TEST 2 
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001202 


001164 


001162 


MACY11 30A(1052) 
T30 "WRITE* 


3$: 


4$: 


5$: 


6$: 
7$: 
8$: 


9$: 


MOV 
BRKDA4 


ERROR 


Mm 6 
21-FEB-78 08:58 PAGE 78 
- 256 WORD BLOCK ON SECTOR 0, CYLINDER 0 


3$-2 ;YES, BRANCH 


PC,GT3RG ;GET RKCS, ER, DS 

30 :CNTRL RDY DID NOT CLEAR AS GO WAS SET 
:TO ‘WRITE’ 

aRKCS :D1D CNTRL RDY SET? 

R2 :WAITED LONG ENOUGH? 

3$ :1F NOT, LUP BAK & WAIT 
: IF YES, ERROR 

PC ,GT4RG :GO, GET RKCD, ER, DS, DA 

DRIVAD,$REG10 :GET THE STARING ADRES 


;BREAK CONTENTS OF 9 INTO 
sDORV #, CYL, SUR, SEC @ 
31 ;CNTRL RDY DID NOT SET ON COMPLETION 
:OF WRITE OF 256 WORDS ON CYL 0, SEC 0 
;*RKDA’ IN EROR MSGE GIVES THE 
;CONTENTS OF RKDA AT THE TIME OF EROR 
;WRITE WAS DONE STARTING AT <DSK-ADRES> 
; INDICATED IN EROR MSGE 
PC, CHKHE ;CHECK IF “ERR® OR ‘HE’ BIT IS SET, 
IF YES, RETURN HERE 
32 ;HE OR ERR BIT SET ON DOING WRITE OF 
3256 WOKDS ON CYL 0, SEC 0 
;WRITE WAS DUNE STARTING AT <DSK-ADRES> 
: INDICATED IN EROR MSGE 
;"RKDA® IN EROR MSGE GIVES THE 
:CONTENTS OF RKDA AT THE TIME OF EROR 


RO,@RKBA >DID RKBA INCREMENT CORRECTLY? 

6$ YES, BRANCH 

RO,SREGO :GET EXPCTD RKBA 

@RKBA,SREG1 ;GET RKBA RECVD 

35 ;RKBA DID NOT INCREMENT CORRECTLY 
(BY 1000 OCTAL BYTES) AFTER WRITE 
;OF 400 (OCTAL) WORDS ON SEC 0, CYL 0 

PC ,CHKWC ;CHECK IF RKWC OVERFLOWED TO 0, 


:1F NOT RETURN HERE. 
34 ;RKWC DID NOT OVERFLOW, AFTER A 
;WRITE OF 256 WORDS ON CYL 0, SEC 0 
PC ,.CHKDA >CHECK IF RKDA INCREMENTED CORRECTLY, 
:; IF NOT RETURN HERE 
33 ;RKDA DID NOT INCREMENT BY 1 AFTER 
;A WRITE OF 256 WORDS IN CYL 0, SEC 0 
PC,CHKER 


;CHECK IF ANY BIT RKER IS SET 
7 IF YES RETURN HERE. 

36 ;RKER BIT SET ON DOING WRITE ON 
CYLINDER 0, SECTOR 0 


#202 ,aR4 :DOES RKCS STILL CONTAIN THE WRITE BITS? 
TST31 YES, EXIT 

#202 ,SREGO :GET EXPECTED RKCS 

aR4 , SREG1 :;GET RKCS RECVD 

24 :RKCS DID NOT CONTAIN THE "WRITE? 


:BITS AFTER THE FUNCTION WAS DONE. 


SEQ 6077 


MD-11-CZRKKF, 
CZRKKF P11 


012764 
012766 


012770 


012772 
012776 


013020 
013026 


013034 


013042 
013046 
013050 
013052 


013054 
013060 


- 013066 


013070 


0130 
0131 
0131 
0131 
0131 


000004 
104413 


104421 


012700 
012701 


* 013777 


012777 


105777 
100411 
005200 
001373 


004737 
013737 
104416 


104045 


032777 
001033 
012701 
012702 
012703 


177400 
033342 


177400 
033342 
001350 
000005 


166264 


020774 
001350 


001000 


177400 
177777 
033342 


RK11 BASIC LOGIC TEST 2 
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166314 
166310 
166304 


166270 


001202 


166226 2$: 
5$: 


MACY11 30A(1052) 


131 


:*TEST 31 


s*THIS TEST CHECKS IF THE ‘WRITE’ OF 256 WORDS DONE IN PREVIOUS 


>*TEST IS GOOD. THE SEQUENCE OF OPERATIONS IS AS FOLLOWING: 


N 6 
21-FEB-78 08:58 PAGE 79 
CHECK THAT WRITE WAS DONE CORRECTLY 


'“MmOABRRRBRA BARBARA RASERESLASASRRRRASERERAASASESEEERESE REE RRR ERE RSLS SE SE 


CHECK THAT WRITE WAS DONE CORRECTLY 


:*1) DO A READ OF 256 WORDS FROM SECTOR 0, CYLINDER 0 
;* INTO A BUFFER STARTING AT ‘OUTBUF’ 


:#2) COMPARE & CHECK THE DATA THAT IS READ (STARTING AT ‘OUTBUF') 


:* WITH THE DATA SHAT WAS GENERATED PREVIOUSLY 
;*5) REPORT AN ERROR IF THE DATA READ BACK FROM DISK DOES 


:* NOT COMPARE WITH DATA THAT WAS SUPPOSE TO HAVE BEEN WRITTEN 


SRA AAR AEA AERA EAA REAR A EAA AREER EAA AE RARE AEAKAKEEHEKKKEEKEE 


TST31: 


8$: 


1$: 


SCOPE 

CNT.RESET 

TST.SIN 

MOV #-400,R0 

MOV #OUTBUF ,R1 

CLR (R1)+ 

INC RO 

BNE 8 

CLR ~—séRO 

MOV #-400,,aRKwWC 

MOV #OUTBUF ,@RKBA 

MOV DRIVAD,@RKDA 

MOV #5,aRKCS 

TSTB @RKCS 

BMI «oS 

INC RO 

BNE 1$ 

JSR PC,GT4RG 

MOV DRIVAD,$REG10 

BRKDA4 

ERROR 45 

BIT #1000, aRKDS 
BNE TST32 

MOV #-400,R1 

MOV —s«#177777,R2 

MOV #OUTBUF ,R3 


:GO, DO CONTROL RESET 

;THIS IS A CALL FOR THE ‘CNTRL- 
RESET’ ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A 
;IF THE *CNTRL RDY' DOES NOT SET 
;AN ERROR IS REPORTED. NOTE THAT 
; THE PC IN ERROR MESSAGE IS THE 
PC WHERE "CNT.RESET’ IS LOCATED. 
;THIS IS A VERY BASIC ERR@& IF IT 
sOCCURS GO BACK TO TEST 10 

sCHECK IF SIN IS SET, IF SET 

:DO DRIVE RESET TO CLEAR IT 

;SET COUNT FOR 400 WORDS 

:TO BE CLEARED IN THE BUFFER 
;CLR THE 400 WORD BUFFER 
;STARTING AT ‘OUTBUF' 


CERTAIN TIME 


;READ 256 WORDS 
; INTO THIS ADRES 
;STARTING FROM THIS DISK ADRES 


READ, GO 


:DID CNTRL RDY SET? 
:YES, BRANCH 

sWAITED LONG ENOUGH? 
:IF NOT, LUP BAK & WAIT 
: ERROR, 
:GO0, GET RKCD, ER, DS. DA 

:GET THE STARTING ADRES 

:GO0 TO ‘BDA4’ & BREAK CONTENTS OF 
:$REG1O INTO DRV #, CYL. SUR, SEC BITS 


IF YES 


;CNTRL RDY DID NOT SET AFTER READ 
:OF 400 WORDS FROM CYL 0, SEC 0 
;"RKDA’ IN EROR MSGE GIVES THE 
;CONTENTS OF RKDA AT THE TIME OF EROR 
;READ WAS DONE STARTING AT <DSK-ADRES> 
; INDICATED IN EROR MESGE 

:1S SIN SET? 

ssi VES, EXIT 


SEQ 0078 


B 7 
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131 CHECK THAT WRITE WAS DONE CORRECTLY 


CZRKKF P11 


013116 
013122 
013126 


013130 
013132 
013136 
013144 


013150 
013154 


013156 
013160 
013162 


013164 
013166 


013170 
013172 


013174 
013176 


013240 


013244 
013246 
013250 
013254 


21-FEB-78 0 


012705 
062702 
020213 
001414 
010137 
062737 
010237 


011337 
104055 


005205 
001403 
005723 


005201 
001355 


000004 
104413 


104421 
013701 


012714 
012711 


105711 


104030 


177773 
177401 


001162 
000401 
001164 


001166 


001332 
001334 


000013 


021002 


001162 


6$: 


7$: 


#~-5,R5 


#177401 ,R2 


R2,(R3) ;WAS THE READ WORD SAME AS THE WORD 


7$ 


R1,$REGO 
#401 ,$REGO 
R2,$REG1 


(R3) , SREG2 
55 


R5 
TST32 
(R3)+ 


R1 
6$ 


; THAT WAS SUPPOSE TO BE WRITTEN 

;YES, BRANCH 

;NO, ERROR 

;GET THE # OF WORD 

;THAT IS IN ERROR (EXAMPLE=1,2--376,377,400) 
;GET EXPCTD WORD (THAT WAS SUPPOSED TO 

;BE WRITTEN) 

;GET WORD RECVD (THAT WAS READ BAK) 

:D1D NOT READ BACK WORD THAT WAS SUPPOSED 
;TO HAVE BEEN WRITTEN PREVIOUSLY. POSITION 
;OF WORD IN ERROR IS AS INDICATED BY 

;WORD # ($REGO), SEC 0, CYL 0 


ss EXIT 

; INCREMENT POINTER TO NXT WORD (THAT 
;WAS READ BACK) 

;HAVE U CHKD ALL 256 WORDS? 

;1F NOT, LUP BAK & CHK THE NXT WORD 
s1F YES, EXIT 


STRATA AAA EKER EEA EAAEAA AEA AAAAKAAAAEAEEEEEAEEAAKE 


CHECK ‘READ CHECK’ FUNCTION - CYLINDER 0, SECTOR 0 


s*TEST 32 


TST32: 


1$: 


s*THIS TEST CHECKS OUT THE BASIC :READ CHECK’ LOGIC, USING THE DATA BLOCK 


s**CYLINDER, SECTOR 0) WRITTEN IN A PREVIOUS TEST. 


HENCE THE TEST WHICH 


s*WRITES THE DATA BLOCK SHOULD BE DONE PRIOR TO THIS TEST. 


FF AAA A AAAS AAAS KARA AAA AEA ERATE KER AAAAEAARAEARAAARAARAEEAAAAAAEE 


SCOPE 

CNT.RESET 

TST.SIN 

MOV RKCS,R1 

MOV RKWC,R2 
MOV RKDA,RS5 
MOV RKBA,R4 

MOV #52525 ,QUTBUF 
MOV #-400 ,aR2 
MOV DRIVAD ,aR3 
MOV #OUTBUF ,aR4 
MOV #13,aR1 
TSTB ar 

BPL 2$ 

JSR PC,GT3RG 
ERROR 30 


:GO, DO CONTROL RESET 

:THIS IS A CALL FOR THE ‘CNTRL- 
RESET’ ROUTINE. A CONTROL RESET IS 
: ISSUED AND AFTER A CERTAIN TIME 
IF THE ‘CNTRL RDY" DOES NOT SET 
:AN ERROR IS REPORTED. NOTE THAT 
; THE PC IN ERROR MESSAGE IS THE 
PC WHERE ‘CNT.RESET® IS LOCATED. 
>THIS IS A VERY BASIC ERR@ IF IT 
;OCCURS GO BACK TO TEST 10 

sCHECK IF SIN IS SET, IF SET 

;DO0 DRIVE RESET TO CLEAR IT 


READ CHECK 256 WORDS 
; STARTING FROM CYL 0, SECTOR 0 


;READ CHECK, GO 


;DID CNTRL RDY GET CLEARED AS GO WAS SET? 
>YES, BRANCH 

GET RKCS, ER, DS 

:CNTRL RDY DID NOT CLEAR AS GO 


MD-11-CZRKKF, RK11 BASIC LOGIC 


CZRKKF. 


4334 


P11 


013256 


013260 


013262 
013266 
013270 
013274 


013276 
0133504 
013306 
0133514 


013316 


013332 


013334 
013340 


013356 


013360 
013364 
013366 
013374 
015400 


013402 


013410 


013412 
013420 
013426 
013434 


104412 


104056 
032711 
001403 
004737 
104057 
032777 
001404 


017737 
104060 


005712 


104061 
013702 


005202 


104062 


022714 


104063 


022737 


001412 


012737 


104064 
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140000 
021002 


000002 
166016 


001162 
001164 


001350 


001162 
001164 


033342 


033342 
001164 


052525 


033342 
052525 
033342 


TEST 2 


166024 
001162 


001162 


033342 


001162 
001164 
001166 


. Ff 
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T32 CHECK "READ CHECK’ FUNCTION = CYLINDER 0, SECTOR 0 


23: 


3$: 


4$: 


5$: 


6$: 


7$: 


CHKCRDY 


ERROR 


:GO CHECK IF CONTROL RDY IS SET 
;1F SO, SKIP THE EROR MESSAGE. 
;WAS SET TO ‘READ CHECK’ 

56 ;CNTRL RDY DID NOT SET ON DOING 
; "READ CHECK’ FROM CYL 0, SEC 0 


#140000,aR1 :DID ‘ERR’ OR ‘HES BIT SET? 

4$ 7NO, BRANCH 

PC, GT3RG :G0, GET RKCS,ER,DS FOR ERROR MESSAGE 

57 :"ERR® OR ‘HE’ BIT SET ON DOING 
; "READ CHECK’ ON CYLINDER 0, SEC 0 

#2, aRKER :D1ID ‘CSE’ BIT SET IN RKER? 

5$ 3NO, BRANCH 

@RKER, SREGO :GET RKER 

60 ;SOFT ERROR - CSE ~ ON DOING ‘READ 
; CHECK’ ON CYLINDER 0, SECTOR O 
:U SHOULD HAVE GOT ERRROR 102 ALSO 

aR2 :DID WORD COUNT OVERFLOW TO 0? 

6$ : YES, BRANCH 

aR2,$REGO :GET RKWC 

aR1,$REG1 :GET RKCS 

61 :WORD COUNT DID NOT OVERFLOW 
:0N DOING ‘READ CHK’ ON CYL O, SEC 0 

DRIVAD,R2 :RKDA SHOULD INCREMENT 

Re :TO THIS AFTER *RD CHK’ IS DONE 

ai :DID RKDA INCREMENT CORRECTLY? 

R2,SREGO :GET EXPCTD RKDA 

ar3,S$REG1 :GET RKDA RECVD 

62 ;RKDA DID NOT INCREMENT CORRECTLY 
7(BY 1) ON DOING ‘READ CHK" ON 

| :CYL 0, SEC O 

#OUTBUF ,aR4 :DID RKBA GET CHANGED? 

8$ :NO, BRANCH (RKBA WON'T CHANGE, NO NPR'S) 

#OUTBUF ,SREGO ;GET EXPCTD RKBA 

aR4 , SREG1 :GET RKBA RECVD 

63 sRKBA CHANGED AFTER DOING ‘READ CHK’ 
;ON CYLINDER 0, SECTOR 0. SHOULD 
sNOT CHANGE, FOR, NO NPR'S. 

#52525 ,OUTBUF ;OUTBUF® SHOULD STILL CONTAIN THE 
:SAME WORD AS IT DID BEFORE ‘RD CHK‘ 
sNOTE THAT AT THE BEGINING OF THIS TEST 
252525 WAS WRITTEN INTO ‘OUTBUF' 

TST33 7: YES, EXIT 
:REPORT ERROR IF ‘OUTBUF* CHANGED 

#OUTBUF ,SREGO ;GET ADRES OF OUTBUF 

#52525, $REG1 :GET EXPCTD WORD IN ‘OUTBUF' 

OUTBUF , SREG2 :GET WORD FOUND IN ‘OUTBUF' 

64 :AS MENTIONED ABOVE. IF ‘WRITE’ OF 


:256 WORD DATA BLOCK WAS DONE 
;CORRECTLY BEFORE, THEN THIS ERROR 
;COULD MEAN THAT AN NPR WAS DONE 
;ON "READ CHECK’. 


FF RARER ERATE ERAT AA ETA TAKARA AA ATE KALA AAA RARER AARAARAARARRERAATE 


CHECK THE ‘WRITE CHECK" FUNCTION - ON CYLINDER 0, SECTOR 0 


s*THIS TEST CHECKS OUT THE BASIC "WRITE CHECK" LOGIC, USING THE 256 


MD~11-CZRKKF, RK11 BASIC LOGIC TEST 2 
21-FEB-78 08:51 


CZRKKF 


-P11 


013436 
013440 


013442 
013444 


013520 
013524 


013536 
013540 
013542 


013544 


013556 
013560 


013574 


000004 
104413 


104421 
013701 


012711 


005000 
105711 
100003 
004737 
104030 


104412 
104065 


032711 
001403 
004737 
104066 


032777 
001403 
004737 
104067 


001332 
177400 
033342 
177777 
177401 


177400 
033342 
001350 
000007 


021002 


140000 
021002 


000001 
021002 


1$: 


165630 
165624 
165620 


2$: 


3$: 


4$: 


165542 5$: 


1S133: 


D 7 
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CHECK THE ‘WRITE CHECK" FUNCTION - ON CYLINDER 0, SECTOR 0 


>*WORD DATA BLOCK (SECTOR 0, CYLINDER 0) WRITTEN IN A PREVIOUS 
:*TEST. THE BUFFER IN MEMORY, USED FOR COMPARISON OF DATA, IS THE 


>*ONE STARTING AT ‘OUTBUF’. 


HENCE THE TEST WHICH WRITES THE 


:*256 WORD BLOCK ON THE DISK (AS WELL AS CREATING THE 256 
:>*256 WORD MEMORY BUFFER) SHOULD BE DONE BEFORE THIS TEST. 


—WEeARABRBBRBBRBRBRARBASAARARRAARARLRALAREAAARERRALESLEREE EERE SERRE SEES ESE SRS | 


SCOPE 

CNT.RESET 

TST.SIN 

MOV RKCS,R1 

MOV #OUTBUF ,R2 
MOV #177777,R3 
ADD #177401,R3 
MOV R3,(R2)+ 
INC RO 

BNE 1$ 

MOV #-400,aRKWC 
MOV #OUTBUF ,@RKBA 
MOV DRIVAD ,@RKDA 
MOV ° 

CLR RO 

TSTB ari 

BPL 3$ 

JSR PC.GT3RG 
ERROR 30 

CHKCRDY 

ERROR 65 

BIT #140000 ,aR1 
BEQ 5$ 

JSR PC.GT3RG 
ERROR 66 

BIT #1 ,aRKER 
BEQ 6$ 

JSR PC,GT3RG 
ERROR 67 


:GO, DO CONTROL RESET 

;THIS IS A CALL FOR THE ‘CNTRL- 
RESET’ ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
;1F THE *CNTRL RDY' DOES NOT SET 
;AN ERROR IS REPORTED. NOTE THAT 
;THE PC IN ERROR MESSAGE IS THE 
;PC WHERE *CNT.RESET® IS LOCATED. 
;THIS IS A VERY BASIC ERRE@ IF IT 
sOCCURS GO BACK TO TEST 10 

sCHECK IF SIN IS SET, IF SET 

:D0 DRIVE RESET TO CLEAR IT 


sWRITE CHECK 256 WORDS 

;STARTING AT THIS BUS ADRES 

sWITH THIS DISK DATA BLOCK (CYL 0, SEC 0) 
sWRITE CHECK, GO 


-GIVE SOME TIME 

:DID CNTRL RDY CLEAR AS GO WAS SET? 
;YES BRANCH 

:GET RKCS, ER, DS 

:CNTRL RDY DID NOT CLEAR AS GO WAS 
:SET TO DO WRITE CHECK 

:GO CHECK IF CONTROL RDY IS SET 

;IF SO, SKIP THE EROR MESSAGE. 
:CNTRL RDY DID NOT SET AFTER 

; COMPLETING WRITE CHECK ON 

sCYLINDER 0, SECTOR 0 

:DID HE OR ERR BIT SET 

NO, BRANCH 

:GO GET RKCS ER DS FOR ERROR MESSAGE 
;HE OR ERR BIT SET ON DOING WRITE 
;CHK ON CYLINDER 0, SEC 0 

:DID WCE SET IN RKER? 

:NO, BRANCH 

;YES GET RKCS, ER, DS 

;WCE ON WRITE CHECK OF CYL 0, SEC 0 
sNOTE THAT IF A PREVIOUS TEST 

;& THEN COMPARED WITH MEMORY BUFFER 
;TO SEE IF IT WAS WRITTEN CORRECT WAS 
;DONE RIGHT BEFORE, THIS ERROR SHOULD NOT 


SEQ 0081 


MD-11-CZRKKF, 
CZRKKF P11 


013576 
013602 
013604 
013612 
013616 


013674 


013676 
013702 
013704 
013712 
013716 


013720 
013722 


013724 
013726 


RK11 


005777 


104061 


013704 
005204 
020477 
001406 
010437 
017737 
104070 


022777 
001407 
012737 
017737 
104071 


022711 
001406 
012737 
011137 
104024 


000004 
104413 


104421 
013701 


BASIC LOGIC 
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165532 
165524 
001164 
001350 
165506 
001162 
165474 
034342 


034342 
165444 


000206 


000206 
001164 


001332 


TEST 2 


001162 


001164 
165460 


001162 
001164 


001162 


MACY11 30A(1052) 


133 


6$: 


7$: 


8$: 


9$: 


CHECK THE ‘WRITE CHECK’ 
TS aRrKwC 

BEQ 7$ 

MOV @RKWC ,SREGO 
MOV @R1,$REG1 
ERROR 61 

MOV DRIVAD, R4 
INC R4 

CMP R4,@RKDA 
BEQ 8$ 

MOV R4,$REGO 
MOV @RKDA, SREG1 
ERROR 70 

CMP 

BEQ 

MOV 

MOV @RKBA, SREG1 
ERROR 71 

CMP #206,aR1 
BEQ TST34 

MOV #206, $REGO 
MOV aR1,SREG1 
ERROR 24 


. ¢ 
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FUNCTION - ON CYLINDER 0, SECTOR 0 


;HAPPEN UNLESS THERE IS A FAULT IN THE 
;COMPARING LOGIC OF ‘WRT CHK' 
:DID RKWC OVERFLOW? 

YES. BRANCH 

NO, GET RKWC 

;GET RKCS 

:RKWC DID NOT OVERFLOW AFTER 
sWRITE CHECK ON CYL O, SEC 0 
;RKDA SHOULD INCREMENT 

;TO0 THIS AFTER WRT CHK 

;DID RKDA INCREMENT CORRECTLY? 
YES, BRANCH 

:NO, GET EXPCTD RKDA 

;GET RKDA RECVD 


:RKDA DID NOT INCREMENT CORRECTLY 
1 SECTOR) AFTER WAT CHK ON SEC 0, CYL 0 


; (BY 
< tenia @RKBA :010 7 INCREMENT CORRECTLY? 
#OUTBUF+1000,$REGO ;GET EPCTD RKBA 


;GET RKBA RECVD 


:RKBA DID NOT INCREMENT CORRECTLY 

;(BY 1000 BYTES) AFTER A WRT CHK 

;OF 256 WORDS ON CYL 0, SEC 0 

;DOES RKCS STILL CONTAIN THE WRT CHK BITS? 


>;YES, BRANCH 


:NO, GET EXPCTD RKCS 
;GET RKCS RECVD 


sRKCS BITS CHANGED AFTER WRT CHK 
DONE 


FT RARER AAAEAE KEKE AAA AEA AA ARATE TEARAAAAAAAAATAAAARAEAAEREAEAAAAAEEE 
:*TEST 34 
s*THIS TEST CHECKS THAT THE BUS ADDRESS DOES NOT INCREMENT WHEN 
:*THE IBA BIT IS SET. SEQUENCE OF OPERATIONS: 

:*1) CLEAR OUT 256 WORD BUFFER IN MEMORY (OUTBUF) 

:*2) READ FROM SECTOR 0, CYLINDER 0 THE 256 WORD BLOCK THAT WAS 
;*WRITTEN IN A PREVIOUS TEST (NOTE: THAT TEST SHOULD HAVE BEEN 
:*DONE BEFORE THIS). IBA BIT IS SET DURING READ BACK. 

3#3) CHECK THAT RKBA DID NOT INCREMENT 

3*4) CHECK THAT THE ENTIRE BLOCK WAS READ INTO THE SAME MEMORY 
:*WORD (OUTBUF) & THE REST OF THE WORDS IN THAT BUFFER ARE 0 
7tAS PREVIOUSLY CLEARED OUT. 


SF RAAAAAAA AERA ASAE AAT AEA AERA AAAAAA EAR ARARAARAAAKAERAARKEEKKEEREE 


:GO, DO CONTROL RESET 


TST34: 


SCOPE 


CNT.RESET 


TST.SIN 
MOV 


RKCS,R1 


sTHIS IS A CALL FOR THE 


CHECK THAT IBA INHIBITS INCREMENTING OF RKBA 


*CNTRL- 


;RESET* ROUTINE. A CONTROL RESET IS 


; ISSUED AND AFTER A 


CERTAIN TIME 


IF THE ‘CNTRL RDY' DOES NOT SET 
;AN ERROR IS REPORTED. NOTE THAT 
;THE PC IN ERROR MESSAGE IS THE 
;PC WHERE "CNT.RESET’ IS LOCATED. 
sTHIS IS A VERY BASIC ERR& IF IT 
;OCCURS GO BACK TO TEST 10 


;CHECK IF SIN IS SET, 


IF SET 


;D0 DRIVE RESET TO CLEAR IT 


MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2 
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013732 
013736 
0135742 


013744 


013764 


013772 
013776 


014020 
014026 


014030 
014032 
014036 


014040 
014044 
014046 
014052 
014060 


014062 
014070 
014072 
014076 


014102 
014104 
014112 
014116 


014124 


014126 
014130 


012700 
012702 
010203 


005023 


013777 


012711 


005037 
105711 


104416 
104045 
004737 
104046 


020277 


104072 


032777 
001042 
012700 
022712 


001411 
012737 
011237 
013737 


104044 


005722 
012705 


21-FEB-78 08:51 


177400 
033342 


177400 
165352 
001350 
004005 


001362 


001362 


020774 
001350 


021234 


165272 
001162 
165260 
601000 


177400 
000377 


000377 
001164 
001350 


177773 


165354 
165346 


001202 


001164 


165236 


001162 
001166 


. fF 
MACY11 30A(1052) 21-FEB-78 (08: 
134 CHECK THAT IBA INHIBITS 


1$: 


2$: 


3$: 


4$: 


5$: 


6$: 


BRKDA4 
ERROR 
JSR 
ERROR 


TST 
MOV 


#-400,R0 
#OUTBUF ,R2 


(R3)+¢ 

RO 

1$ 
#-400,aRKWC 
R2,@RKBA 
DRIVAD,@RKDA 


#4005,aR1 
COUNT 

art 

3$ 

COUNT 

2$ 

PC.GT4RG 
DRIVAD, $REG10 
45 

PC, CHKHE 


46 


R2,@RKBA 

5$ 

R2,SREGO 
@RKBA,SREG1 
72 

#1000, aRKDS 
TST35 

#-400 . RO 
#377 ,aR2 


6$ 

#377 ,$REGO 
(R2) ,SREG1 
DRIVAD , SREG2 


Gu 


(R2)+ 
#-5,R5 
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INCREMENTING OF RKBA 
;SET UP COUNT FOR 256 WORDS 


;CLEAR OUT THE 256 


;WORD MEMORY BUFFER STARTING 


;AT ‘OUTBUF' 


;READ BACK 256 WORDS 


;INTO THIS BUS ADRES (IBA WILL B SET) 


>FROM THIS DSK ADRES (SEC 0, CYL 0) 
:NOTE: SEC 0 HAS BEEN WRITTEN IN A 


;PREVIOUS TEST WITH A UNIQUE PATTERN 
:READ, GO, IBA SET 


:DID CNTRL RDY SET? 


:YES, BRANCH 


;WAITED LONG ENOUGH? 

;if NOT, LUP BAK & WAIT 

:GO, GET RKCS, ER, DS, DA 

:GET THE STARTING ADRES 

;BREAK CONTENTS OF S$REG10 

; INTO DR #, CYL, SUR, SEC 

ae RDY DID NOT SET AFTER DOING 


:RE 
;CHECK IF ‘ERR® OR ‘HE’ BIT IS SET, 
:;1F YES, RETURN HERE. 


;ERR BIT SET ON DOING READ FROM SEC 0, 
:CYL 0 (INDICATED 


IN <DSK-ADRES>) 


;"RKDA* IN EROR MSGE GIVES THE 


;CONTENTS GF RKDA AT THE TIME OF EROR 


:DID RKBA INCREMENT? 


;OK IF NOT, BRANCH 
;GET EXPCTD RKBA 
:GET RKBA RECVD 


>RKBA INCREMNTED WHEN IBA BIT WAS 
;SET, SHOULD NOT HAVE 


71S SIN SET? 


ss it ¥G$,. EXIT 


;CHECK THAT THE FIRST WORD IN 


;"OQUTBUF® IS 377 (LAST WORD OF SEC 0, 


;CYL 0). NOTE THAT READ WAS DONE 
: INTO THIS SAME WROD WITH IBA SET 


;GET EXPCTD WORD (LAST WORD OF THE BUFFER 
;GET WORD RECVD (LAST WRD FROM SEC 0) 


;DISK ADRES WHERE ERROR OCCURED 
;(SEC 0, CYL 0 LAST WORD) 


;DATA ERROR 


;THE FIRST WORD IN MEM BUFFER (OUTBUF) 
;SHOULD BE NON-ZERO & SHOULD CONTAIN 


;THE LAST WORD READ BACK FROM SEC 0 


:CYL O,THIS DID NOT HAPPEN IF THE ERROR CCCURS 


; INCREMENT POINTER TO THE NXT WORD 
;ALLOW ONLY 5 MESAGES FOR ERR 116 


MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2 
21-FEB-78 08:51 


CZRKKF .P11 


014134 
014136 
014140 
014142 
014144 
014150 
014154 
014156 
014162 


014166 


014170 
014172 
014174 


014176 
014200 


014202 


014204 
014210 
014214 
014216 
014216 
014222 


005200 
001417 
005722 
001774 
005037 
014237 
010004 
062704 
010437 


104073 


005205 
001401 
000757 


000004 
104413 


104421 


012746 
012746 
000002 


013701 
013700 


001164 
001166 


000401 
001162 


0005340 
014216 


001332 
001402 


G 7 
MACY11 30A(1052) 21-FEB-78 08: 
134 CHECK THAT IBA 


7$: 


INC 
BEQ 
BR 


SREG1 
~(R2),$REG2 
RO,R4 
#401,R4 
R4,$REGO 


73 


R5 
TST35 
7$ 


INHIBITS 
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INCREMENTING OF RKBA 

;CHKD ALL 256 WORDS IN THE BUFFER? 
s3VES, EXIT 

31S THIS WORD 0? 

:YES, LUP BAK & CHK THE NXT WORD? 
sERROR. GET EXPCTED WORD - 0 

;GET WORD THAT WAS FOUND IN THE BUFFER 


;THIS ‘WORD #' IN MEMORY BUFFER 

; SHOULD HAVE BEEN ZERO 

;THE 256 WORD BUFER (STARTING AT 
;OUTBUF) WAS CLEARED BEFORE READING 
;BAK SEC 0 INTO IT. SINCE THE IBA 
;BIT WAS SET DURING THE READ, ONLY 
>THE FIRST WORD OF (OUTBUF) SHOULD 
;HAVE CHANGED, THE REST OF THE WORDS 
; SHOULD BE STILL 0. IF THIS ERROR 
;OCCURS, ‘WORD #° (OF THE BUFFER) AS 
; INDICATED IN THE EROR MESAGE) GOT 

; CHANGED WHEN READ WAS DONE FROM 
;THE DISK, INDICATING THAT WITH IBA 
;SET X-FER WAS NOT DONE INTO THE 
;SAME MEMORY LOCATION. ‘WORD #° 

:1S OCTAL & SPECIFIES THE POSITION 
;IN THE BUFFER (FIRST WORD IS ‘WORD #° 1) 


:rEXIT 


‘ 
SPEEA AERA AAA AAA AAT AA TATE AE RAE A ERE AARAARAREAAREEAEEEAEEE 


CHECK THAT RK11 INTERRUPTS WHEN IDE IS SET 


:*TEST 35 


TST35: 


64$: 


:*THIS TEST CHECKS IF RK11 INTERRUPTS TO ITS DESIGNATED VECTOR 
s*ADDRESS WHEN IDE BIT IS SET, WITH CONTROL READY SET & GO CLEAR. 
;* IT IS NORMALLY 220, UNLESS IT HAS BEEN CHANGED. IF IT HAS BEEN 


:*CHANGED RK11 WILL INTERRUPT TO ‘RKVEC'. 


NOTE ‘RKVEC* HAS 


:*T0 BE SET UP BY THE USER. 


STEARATE RER ESE ERATE AERA ATA A AERA EATER ARAAAEAEARAAEAAEKERAKEREE 


SCOPE 

CNT.RESET 

TST.SIN 

MOV #340,-(SP) 
MOV #64$,-(SP) 
RTI 

MOV RKCS,R1 
MOV RKVEC,RO 


:GO, DO CONTROL RESET 

;THIS IS A CALL FOR THE ‘CNTRL- 
;RESET’ ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
;1F THE “CNTRL RDY* DOES NOT SET 
;AN ERROR IS REPORTED. NOTE THAT 
;THE PC IN ERROR MESSAGE IS THE 
;PC WHERE 'CNT.RESET* IS LOCATED. 
;THIS IS A VERY BASIC ERRE& IF IT 
;OCCURS GO BACK TO TEST 10 

;CHECK IF SIN IS SET, IF SET 

;D0 DRIVE RESET TO CLEAR IT 


;GET POINTER TO RK VECTOR ADRES 


MO~11-CZRKKF, 
CZRKKF P11 


014226 
014232 
014236 
014240 
014242 
014246 


014252 
014256 


014260 
014262 
014264 
014266 
014274 


014300 


014302 
014304 
014306 


014310 


014316 
014322 
014326 
014330 


014330 
014332 
014340 


012720 
012710 


104420 
011137 
104074 


000400 
022626 
022626 
012777 
104420 


000403 


022626 
022626 
104020 


012777 
012746 


012746 
000002 


014262 
000340 


000100 
000905 
001162 


014302 
000005 


004600 


000340 
014330 


RK1i1 BASIC LOGIC TEST e 
21-FEB-78 08:51 


165106 


165064 


000004 
012737 000005 001206 
104413 


MACY11 30A(1052) 
135 


2$: 


3$: 


65$: 


MOV 
MOV 
TSTB 
BPL 
MOV 


WAT.INT 


MOV 
ERROR 


BR 
CMP 


CMP 
MOV 


WAT. INT 


H 7 
21-FEB-78 08:58 PAGE &% 
CHECK THAT RK11 INTERRUPTS WHEN IDE IS SET 


#1$,(R0)+¢ 
#340, (RO) 
ari 

72 
#100,aR1 


a@R1,$REGO 
74 


1$ 
(SP)+,(SP)+ 


(SP)+,(SP)+ 
#2$,aRKVEC 
od 


3$ 

(SP)+,(SP)+ 
(SP)+,(SP)+ 

20 

#BADINT ,A@RKVEC 


#340,-(SP) 
#65$,-(SP) 


;SET UP INTERRUPT VECTOR FOR RK11 
;SET PSW ON INTERRUPT 
sWAIT FOR CNTRL RDY TO SET 


“SET IDE BIT IN RKCS 
“WAIT FOR INTERRUPT, ATLEAST 


;37 US FOR 11/20, 7 US FOR 11/45 
;GET RKCS 


;RK11 DID NOT INTERRUPT WHEN IDE 


+7 * WITH CNTRLE RDY SET &@ GO 


;RK11 INTERRUPTED CORRECTLY TO 

; THIS. RESTORE STACK POINTER 

; (FROM RK11 INTERRUPT) 

;RESTORE STACK POINTER 

;(FROM WAT.INT) 

; IF THERE IS FAULTY POLLING OR INTERUPT 
; LOGIC SECOND INTERRUPT MIGHT OCCUR 
;WAIT FOR INTERRUPT,IF ANY 

;DUE TO FAULTY LOGIC 


;RESTORE STACK PTR (FROM RK11 INTRUPT) 
;RESTORE STACK PTR (FROM WAT.INT) 

;AN UNEXPECTED RK11 INTERRUPT 
;OCCURED. THERE SHOULD HAVE BEEN 

;ONLY 1 INTERRUPT (TO 1$ ABOVE) 
;RESTORE VECTOR ADRES FOR 

sUNEXPECTED RK11 INTERRUPT, 


Ss ee AER E ERR AE EERE RARER TERE AERA EERE R ERE ee 
:*TEST 36 
:*THIS TEST CHECKS THAT AN INTERRUPT FROM RK11 OCCURS AFTER 
;tA SEEK IS INITIATED WITH ‘IDE* BIT SET, AND THEN A SECOND 


s*INTERRUPT OCCURS AFTER THE SEEK IS DONE. 


CHECK THAT WITH IDE SET RK11 INTERRUPTS AFTER INTIATION & COMPLETION OF 


IT ALSO CHECKS THAT 


;*AFTER THE FIRST INTERRUPT "SCP* BIT IS NOT SET, WHEREAS AFTER 
;*THE SECOND INTERRUPT ‘SCP* IS SET. 


;*THIS TEST ALSO CHECKS A 


A PART OF THE POLLING LOGIC. 


PIT TTITITITTIITIL TTT LTT LLL LLL ELL 


S136: 


SCOPE 
MOV #5, STIMES 
CNT.RESET 


;;D0 5 ITERATIONS 

;GO, DO CONTROL RESET 

;THIS IS A CALL FOR THE ‘CNTRL- 
;RESET’ ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
IF THE ‘CNTRL RDY' DOES NOT SET 
;AN ERROR IS REPORTED. NOTE THAT 
;THE PC IN ERROR MESSAGE IS THE 
;PC WHERE ‘CNT.RESET* IS LOCATED. 






MD-11-CZRKKF, RK11 BASIC LOGIC 
CZRKKF .P11 


014342 
014346 
014354 
014360 


014362 
014366 
014372 
014376 
014404 
014410 


014414 
014422 
014426 


014430 
014432 


014434 
014436 
014444 
014450 
014452 
014456 


014460 


014464 


014472 
014476 


014500 
014502 
014504 
014506 
014514 
014520 
014522 
014526 


014530 


013700 
013777 
004737 
104026 


013701 
012721 
012711 
052777 
012710 
104420 


012777 
011037 
104075 


000402 
022626 


022626 
012777 
032710 
001403 
011037 
104076 


104420 


012777 


004737 
104077 


000401 
022626 
022626 
012777 
032710 
001003 
011037 
104053 


017701 


21-FEB-78 08:51 


001332 
001350 
021504 


001402 
014432 
000340 
000040 
000111 
000300 


004600 
001162 


014502 
020000 


001162 


056700 


004600 
021002 


004600 
020000 
001162 


164572 


TEST 2 


164764 


164734 


164760 


164736 


164710 


164666 


, 
MACY11 30A(1052) 21-FEB-78 08: 
136 CHECK THAT WITH IDE SET 


2$: 


3$: 


4$: 


5$: 


6$: 


WAT.INT 


WAT.INT 


MOV 


JSR 
ERROR 


BR 
CMP 
CMP 
MOV 
BIT 
BNE 
MOV 
ERROR 


MOV 


RKCS,RO 
DRIVAD,@RKDA 
PC ,DRESET 

26 


RKVEC,R1 

#3$,(R1)+ 
#340,(R1) 
#40,aRKDA 
#111,aRO0 

, 300 


#BADINT ,ARKVEC 
Oo 


3$+4 
(SP)+,(SP)+ 


(SP)+,(SP)+ 


#5$ ,aRKVEC 
#20000, aR0 


4$ 
a@RO, $REGO 
76 


. 36700 


#BADINT ,aRKVEC 


PC, GT3RG 
77 


5$+2 
(SP)+,(SP)+ 
(SP)+,(SP)+ 
#BADINT ,@RKVEC 
#20000, aR0 

6$ 

@RO,$REGO 

53 


@RKDS,R1 
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87 
RK11 INTERRUPTS AFTER INTIATION & COMPLETION OF S SEQ 0086 


;THIS IS A VERY BASIC ERRG@ IF IT 
;OCCURS GO BACK TO TEST 10 


; ADRES 


THE DRIVE 


:GO, DO DRIVE RESET 


sR/W/S 
; ABOVE 


;SET UP VECTOR ADRES FOR RK11 INTERUPT 


RDY DIDN*T SET AFTER DOING 
DRIVE RESET 


;SET UP PSW ON INTERRUPT 


; ADRES 
; SEEK, 


CYLINDER #1 
GO WITH IDE SET 


:WAIT FOR THE DRIVE TO 

; INTERRUPT AFTER ADRES WAS RECVD 
sWAITING TIME= 1.4 MS FOR 11/20 
;280 US FOR 11/45 


; ERROR 


» IF INTERUPT DID NOT OCCUR 


OW 


;GET 


:BY N 
Ta. RK11 INTERRUPT 
: K 


: INTERRUPT DID NOT OCCUR AFTER 
;SEEK WAS INITIATED WITH IDE SET 


;OK, IF RK11 INTERRUPTED TO THIS 


;RESTORE STACK POINTER (FROM RK11 INTERRUPT) 


sRESTORE STACK POINTER (FROM 
;WAT.INT) 

;SET UP NEW VECTOR ADRES FOR RK11 
:1S SCP CLEAR 

YES. BRANCH 

;GET RKCS 

;SCP SET BEFORE SEEK TO LAST 
;CYLINDER WAS DONE 


; WAIT 
; AFTER 


FOR DRIVE TO INTERRUPT 
SEEK WAS COMPLETED 


;WAITING TIME=180 MS FOR 11/20 


736 MS 
sit*s 
: INTER 


;RK11 DID NOT INTERRUPT AFTER SEEK (TO 
;LAST CYLINDER) WAS DONE WITH IDE SET 


;OK, IF RK11 INTERUPTED TO THIS AFTER 


FOR 11/45 
AN ERROR IF BY THIS TIME 
RUPT HAS NOT OCCURERED 
;GO GET RKCS, ER, DS 


;SEEK WAS COMPLETED. RESTORE 


; STACK 
:RESTO 


POINTER (FROM RK11 INTERRUPT) 
RE STACK POINTER (FROM 


sWAT.INT) 


sRESTO 
;FOR U 
;D10 $ 


N 

RE RK11 INTERRUPT VECTOR ADRES 
NEXPECTED INTERUTS 

CP BIT SET? 


:YES, BRANCH 


:GET R 


:SCP DID NOT SET AFTER RK11 INTERRUPTED 


; INDIC 
:GET R 


KCS 


ATING SEEK WAS DONE 
KDS 


ay 


MD-11-CZRKKF, 
CZRKKF .P11 


014534 
014540 
014544 


014546 
014552 
014556 
014562 
014564 
014570 
014574 


014576 
014576 


014636 


014640 
014644 
014646 
014652 


014654 
014656 


014660 


042701 
020137 
001414 


013746 
004737 
012637 
010146 
004737 
012637 
104047 


012746 
012746 
000002 


104413 
013777 


104050 


022710 
001403 
011037 
104100 


000004 
104413 


104421 


08:51 
017777 
001350 


001350 
021200 
091162 


021200 
001164 


000340 
014610 


001350 
160000 


164472 


000200 
001162 


RK11 BASIC LOGIC TEST 2 
21-FEB-78 


164520 
164500 


001162 


MACY11 30A(1052) 
136 


7$: 


64$: 


8$: 


ae, 
21-FEB-78 08:5 


CHECK THAT WITH IDE SET R 


BIC #17777,R1 

CMP R1,DRIVAD 

BEQ 7$ 

MOV DRIVAD,-(SP) 
JSR PC, SHFTRT 

MOV (SP)+,$REGO 
MOV R1,-(SP) 

JSR PC,SHFTRT 

MOV (SP)+,$REG1 
ERROR 47 

MOV #340,-(SP) 
MOV #64$,-(SP) 
RTI 

CNT.RESET 

MOV DRIVAD,@RKDA 
BIT #160000 ,aRKDS 
BEQ 8$ ; 
MOV @RKDS ,$REGO ;GET 
ERROR 50 

CMP #200,aR0 

BEQ TST37 

MOV aRO,$REGO 
ERROR 100 


;MASK NON-ID BITS IN RKDS 
;CORRECT ID BITS IN RKDS? 
:YES, BRANCH 


;PUSH DRV ADRES ON THE STACK 
:GO, SHIFT RIGHT DRV # 

;GET EXPCTD DRV # 

;PUSH ID BITS ON THE STACK 
;GO SHIFT THEM RIGHT 

;POP THE RECVD ID BITS 
;WRONG ID BITS WERE RECVD IN 


;RKDS AFTER SEEK WAS DONE (INTRUPT 


;MODE). 


"EXPCT’ INDICATES THE DRIVE 


;# THAT SHOULD HAVE BEEN IN THE 


:1D BITS, 


"RECVD' INDICATES THE 


;DRIVE # THAT WAS RECVD IN THE ID BITS 


;GO DO CONTROL RESET 

;ADRES THE DRIVE 

:D1D CNTRL RESET CLEAR DRIVE ID BITS? 
>YES, BRANCH 


RKDS 
;CONTROL RESET DIDN*T CLEAR THE 
;DRIVE ID BITS (135-15) IN RKDS 


;WAS SCP BIT CLEARED BY CNTRL RESET? 
7: YES, EXIT 

:GET RKCS 

sCNTRL RESET DID NOT CLEAR SCP BIT 


FRAT AAT AAA AAA EAA ATA AATAAA AAA AERA AAAEAAARAARAAAEAKEREE 


 STEST 37 


S137: 


CHECK THAT WITH IDE SET RK11 INTERRUPTS WHEN READ IS DONE 
s*THIS TEST CHECKS THAT WHEN 
:*WITH IDE BIT SET, RK11 INTERRUPTS WHEN THE FUNCTION IS COMPLETED 


A DATA TRANSFER FUNCTION IS DONE 


s*FUNCTION USED IN THIS TEST IS READ. 


PTTTITITITIT TTL TTLITELLIT LLL LE ELL LLL LLL 


SCOPE 


CNT.RESET 


TST.SIN 


;GO, DO CONTROL RESET 


;THIS IS A CALL FOR THE ‘CNTRL- 
RESET’ ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
;IF THE ‘CNTRL RDY* DOES NOT SET 
;AN ERROR IS REPORTED. NOTE THAT 
;THE PC IN ERROR MESSAGE IS THE 

;PC WHERE ‘CNT.RESET* IS LOCATED. 
:THIS IS A VERY BASIC ERR@ IF IT 
;OCCURS GO BACK TO TEST 10 


;CHECK IF SIN IS SET, 


IF SET 


;D0 DRIVE RESET TO CLEAR IT 


PAGE 88 
K11 INTERRUPTS AFTER INTIATION & COMPLETION OF § 


MD-11-CZRKKF, 
CZRKKF .P11 


014662 


014742 


014746 
014754 
014760 


014762 
014764 


014766 
014770 


014776 
015002 
015004 
015010 
015012 
015014 
015020 
015024 
015026 


015032 


015034 


015066 


013700 


104420 


012777 
011037 
104101 


000404 
022626 


022626 
012777 


004737 
104036 
062701 
020112 
001405 
010137 
011237 
104040 
004737 


104041 


012746 
012746 
000002 


022714 


104042 


001332 


3 
177600 
033342 
001402 
014764 
000340 


000105 
127710 


004600 
001162 


004600 
021342 
000005 


001162 
001164 


021316 


000340 
015046 
033742 


033742 
001164 


RK11 BASIC LOGIC TEST 2 
21-FEB-78 08:51 


164420 


164426 


164404 


001162 


MACY11 30A(1052) 
137 


1$: 


4$: 


2$: 


3$: 


64$: 


. 
21-FEB-78 08: 
CHECK THAT WITH IDE SET 


RKCS,RO 


DRIVAD, R1 
#13,R1 
#-200, aRKWC 
R1,@R2 
#OUTBUF ,aR4 
RKVEC,RS 
#1$,(R5)+ 
#340, (R5) 


#105,aR0 
.127710 


#BADINT ,aRKVEC 
a@RO,$REGO 
101 


1$+10 
(SP)+,(SP)+ 


(SP)+,(SP)+ 
#BADINT ,@RKVEC 


PC,CHKER 
36 


#5,R1 
R1,aR2 
$ 


2 
R1,$REGO 
aR2,$REG1 
40 

PC, CHKWC 
41 


#340,-(SP) 
#64$,-(SP) 


58 
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RK11 INTERRUPTS WHEN READ IS DONE 


;SET BITS FOR SEC 13 

;READ 200 (OCTAL WORDS) 

sFROM THIS DISK ADRES (CYL 0, SEC 13) 
; INTO THIS BUS ADRES 


;SET UP VECTOR ADRES FOR RK11 TO INTRUPT 
;SET PSW ON INTERUPT 

READ, GO, IDE SET 

;WAIT FOR RK11 TO INTERRUPT ON 

; COMPLETION OF READ 

WAITING TIME= 337 MS FOR 11/20 

;67 MS FOR 11/45 

;RESTORE UNEXPCTED INTERRUPT VECTOR ADRES 
;GET RKCS 

;RK11 DID NOT INTERRUPT AFTER READ 

:WAS DONE, IDE BIT SET. 


;OK, IF RK11 INTERRUPTED TO THIS 
sRESTORE STACK POINTER (FROM RK11 INTERRUPT) 
sRESTORE STACK POINTER (FROM WAT.INT) 
;RESTORE UNEXPECTED RK11 INTERRUPT 

; VECTOR ADRES 

;CHECK IF ANY BIT IN RKER IS SET, 

IF YES, RETURN HERE. 

;RKER SET ON DOING READ FROM SEC O, 

; CYL 135 IN INTERRUPT MODE 

sRKDA SHOULD HAVE INCREMENTED TO THIS 
:DID RKDA INCREMENT CORRECTLY? 

> YES BRANCH 

;GET EXPCTD RTDA 

;GET RKDA RECVD 

;RKDA INCREMENTED WRONG ON DOING 

;A READ ON CYL 0, SEC 13 

;CHECK THAT RKWC OVERFLOWED TO 0, 

;1F NOT RETURN HERE. 

:RKWC DIDN'T OURFLO AFTER 

;A READ OF 200 WORDS 


#OUTBUF +400,aR4 :010 RKBA INCREMENT CORRECTLY? 
TST40 :YES, EXIT 
#OUTBUF +400, SREGO :GET EXPCT RKBA 


@R4,$REG) 
42 


:GET RKBA RECVD 
>RKBA DID NOT INCREMENT CORRECTLY 
AFTER A READ OF 200 WORDS 


5 RAAT AERA ETAT ARATE AAA AAT RATER AAA AA AARAEKARAARARARE RATE 


CHECK THAT RK11 INTERRUPTS AT BRS ONLY 


;*TEST 40 


SEQ 0088 


ef 
MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2 MACY11 30A(1052) 21-FEB-78 08:58 PAGE 90 
1 T40 CHECK THAT RK11 INTERRUPTS AT BRS ONLY 


CZRKKF P11 


015070 
015072 


015074 
015076 
015104 


015126 


015132 
015136 


015174 


015176 
015202 
015206 


015210 
015212 


015216 
015220 


21-FEB-78 0 


000004 
104413 


104421 
012737 
013700 
013777 
012701 


012702 
013703 


013704 


000002 
012710 


020203 
003005 


010137 
011037 
104103 


005010 
062702 


005301 
001344 


015132 001110 


001332 
001350 
000007 
000340 
001400 


001402 
015244 
000340 
015156 


000100 
177760 


001162 
001164 


177740 


164222 


:*THIS TEST CHECKS THAT RK11 CAN ITERRUPT AT BR5 ONLY. 


If IT 


s*INTERRUPTS AT A LEVEL HIGHER THAN BRS AN ERROR IS INDICATED. 
:tIF IT DOES NOT INTERRUPT AT BRS ORLOWER THEN ALSO AN 


>*ERROR IS INDICATED. 


If FOR SOME REASON THE INTERRUPT 


>*LEVEL IS CHANGED FROM BRS, THEN CONTENTS OF RKPRI WILL 
>*HAVE TO BE CHANGED ACCORDINGLY AND STILL TEXT WILL 
:*CHECK FOR THIS BR LEVEL. 


SF RRA AAA AAA ATER AER AAT A EARTH RAE HERA EHERAEK REAR EEE 


TST40: SCOPE 
CNT.RESET 
TST.SIN 
MOV #1$,SLPERR 
MOV RKCS,RO 
MOV DRIVAD,@RKDA 
MOV #7,R1 
MOV #340,R2 
MOV RKPRI,R3 

1$: MOV RKVEC,R4 
MOV #3$,(R4)+ 
MOV #340, (R4) 
MOV R2,-(SP) 
MOV #4%$,-(SP) 
RTI 

4$: 
MOV #100,aR0 
MOV #-20,R5 
INC R5 
BNE 72 
CMP R2,R3 
BGT 2$ 
MOV R1,$REGO0 
MOV aRO, SREG1 
ERROR 103 

2$: CLR ar0 
ADD #-40,R2 
DEC R1 
BNE 1$ 


:GO, DO CONTROL RESET 

;THIS IS A CALL FOR THE ‘CNTRL~- 
RESET’ ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
:;1F THE *CNTRL RDY' DOES NOT SET 
;AN ERROR IS REPORTED. NOTE THAT 
;THE PC IN ERROR MESSAGE IS THE 
;PC WHERE ‘CNT.RESET’ IS LOCATED. 
;THIS IS A VERY BASIC ERR@ IF IT 
sOCCURS GO BACK TO TEST 10 

;CHECK IF SIN IS SET, IF SET 

:D0 DRIVE RESET TO CLEAR IT 

;SET RETURN ADRES FOR LUPING 

;ON ERROR (SW 9) 


;PRIORITY LEVEL 7 

;BR LEVEL 7 FOR PSW 

sNOTE, IF RK11_ INTERRUPT LEVEL IS 
; CHANGED FROM 5 TO ANY OTHER LEVEL 
; THEN CHANGE CONTENTS OF ‘RKPRI' 

; ACCORDINGLY 


;SET UP ADRES .FOR RK11 TO INTERUPT 
:SET UP PSW ON INTERUPT 
;SET PROCESSOR PRIORITY LEVEL AS 


; INDICATED BY R2 

;SET THE IDE BIT 

;WAIT FOR THE RK11 INTERRUPT 
;WAITING TIME=78 US FOR 11/20 

313 US FOR 11/745 

;WAS THE CPU PRIORITY LEVEL LESS THAN 
;THE RK11 LEVEL? IF YES, RK11 
;SHOULD HAVE INTERRUPTED. ERROR, 
;IF IT DID NOT 

;GET CPU BR LEVEL 

:GET RKCS 

; THOUGH CPU LEVEL WAS LESS THAN 
;THE RK11 LEVEL (5), RK11 DID NOT 
; INTERRUPT 

; CLEAR RKCS 

;DECREASE THE PRIORITY LEVEL (FOR 
:CPU) BY 1 

;CPU WILL B AT THIS LEVEL 

;LUP BAK & CHK FOR THIS BR LEVEL. 


SEQ 0089 
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CZRKKF P11 


015222 
015230 


015242 


015244 
015246 


015254 
015256 


015260 
015264 
015270 


015272 


015274 
015276 


015300 


015302 
015306 


015312 
015320 
015326 
015332 


015340 
015342 


012777 
012746 
012746 
000002 
000414 


022626 
012777 


020203 
003754 


010137 
011037 
104104 


000746 


000004 
104413 


104421 


073701 
052701 


012777 
012777 
010177 
012777 


005002 
105777 
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004600 


000340 
015242 


004600 


001162 
001164 


001350 
014532 


177377 
033342 
164006 


000005 


163764 


164152 


64$: 


3$: 
164126 


a 7 
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CHECK THAT RK11 INTERRUPTS AT BRS ONLY 


MOV 


;DONE WITH CHKING FOR ALL LEVELS. 


WBADINT,@RKVEC ;RESTORE UNEXPECTED RK11 INTERRUPT 
; VECTOR 

#340,-(SP) 

#64$,-(SP) 

TST41 ;;EXIT, TO NXT TST 

(SP)+,(SP)+ ;RESTORE STACK POINTER 

#BADINT ,@RKVEC be beh ny UNEXPECTED RK11 INTERRUPT 
:V 

R2,R3 :1F THIS INTERRUPT OCCURED WHEN 

2$ :CPU LEVEL WAS LESS THAN THE 
;RK11 PRIORITY LEVEL (5) THEN IT IS 
;OK. IF NOT SO, ERROR 

R1,$REGO ;GET CPU BR LEVEL 

@RO,SREG1 ;GET RKCS 

104 ;RK11 INTERRUPTED WHEN THE CPU 
;LEVEL (AS POINTED BY R1) WAS 
sHIGHER OR SAME AS THE RK11 
sLEVEL (5) 

2$ :GO BACK & CHK THE NXT LEVEL 


FP RARER ERA AAA EARLE AERA AEE AAARAAAERARAAEAAAAARERAEKRAKKEEEE 
s*TEST 41 
s*THIS TEST SIMULATES OVERRUN ERROR AND CHECKS IF THE OVR 


1ST41: 


163772 


1$: 


>*BIT IN RKER GETS SET. 
;*& CHECKED THAT IT WAS CLEARED. 


SIMULATE & CHECK ‘OVR* ERROR 


THEN IT IS CLEARED USING CNTRL RESET 
OVR CONDITION IS SIMULATED 


:*BY TRYING TO READ 401(OCTAL) WORDS FROM LAST CYLINDER(312). 
s*LAST SECTOR (15), SURFACE 1. 


'WRADBSARAAAAAAAAASLARAAARAAAARAASAAAARAARARAARERAEALASASEAAL ASSAD S&S SG | 


SCOPE 

CNT.RESET :G0, DO CONTROL RESET 
sTHIS IS A CALL FOR THE ‘CNTRL- 
sRESET' ROUTINE. A CONTROL RESET IS 
: ISSUED AND AFTER A CERTAIN TIME 
:I1F THE "CNTRL RDY*® DOES NOT SET 
:AN ERROR IS REPORTED. NOTE THAT 
:THE PC IN ERROR MESSAGE IS THE 
:PC WHERE ‘CNT.RESET' IS LOCATED. 
:THIS IS A VERY BASIC ERR@& IF IT 
sOCCURS GO BACK TO TEST 10 

TST.SIN :CHECK IF SIN IS SET, IF 
:SET, DO DRIVE RESET TO CLR IT 

MOV DRIVAD,R1 :GET ADRES OF DRIVE 

BIS #14533,R1 SET BITS FOR LAST CYLINDER (312), 
:SUR 1, LAST SECTOR (13) 

MOV #-401,aRKWC sREAD 401 WORDS 

MOV #OUTBUF ,ARKBA =; INTO THIS MEMORY BUFFER 

MOV R1,@RKDA :FROM THIS DSK ADRES, LAST CYL. 
sLAST SEC, SURFACE 1 

MOV #5,aRKCS READ, GO 

CLR R2 

TSTB @RKCS :DID CNTRL RDY SET? 


SEQ 0090 


? 
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CZRKKF .P11 21-FEB-78 08:51 T41 SIMULATE & CHECK ‘OVR" ERROR SEQ 0091 
4950 015346 100410 BAI 2$ 7YES, BRANCH 
4951 015350 005202 INC R2 :NO, WAIT FOR IT 
4952 015552 001373 BNE 1$ ;I1F WAITED LONG, REPORT ERROR MESSAGE BECAUSE 
4953 ;O0VR SHOULD HAVE SET HE CAUSING 
4954 :CNTRL RDY TO SET BY NOW 
4955 015354 017737 163754 001166 MOV @RKWC ,SREG2 
4956 015362 004737 021010 JSR PC,GT2RG :GO0, GET RKCS, ER 
4957 015366 104002 ERROR 2 : CNTRL RDY DID NOT SET AFTER DOING 
4958 3AN OVR READ. HE SHOULD HAVE OCCURED 
4959 SETTING CNTRL RDY (HE BECAUSE OF 
4960 s;OVR CONDITIONS) 
4961 015370 032777 040000 163732 28: BIT #40000, a@RKER :D1D OVR BIT SET IN RKER? 
4962 015376 001006 BNE 3$ 
4963 015400 004737 021010 JSR PC,GT2RG ;GET RKCS, ER 
4964 015404 012737 040000 001166 MOV #40000, $REG2 ;THIS BIT (OVR) DID NOT SET. 
4965 015412 104105 ERROR 105 ;OVR ERROR BIT DID NOT SET IN RKER 
4966 :ON SIMULATING OVR CONDITIONS 
4967 015414, 022777 140204 163710 38: CMP #140204 ,aRKCS :DID HE & ERR SET WHEN OVR SET IN RKER? 
4968 015422 001403 BEQ 4$ : YES, BRANCH 
4969 015424 004737 021010 JSR PC,GT2RG :GET RKCS, ER 
4970 015430 104106 ERROR 106 sHE OR ERR BIT DID NOT SET IN RKCS WHEN 
4971 ;AN OVR ERROR WAS SIMULATED 
4972 :CLEAR OVER, ERR, HE BITS 
4973 015432 104413 4$: CNT.RESET :GO, DO CONTROL RESET 
4974 :THIS IS A CALL FOR THE ‘CNTRL- 
4975 RESET" ROUTINE. A CONTROL RESET IS 
4976 *; ISSUED AND AFTER A CERTAIN TIME 
4977 :1F THE ‘CNTRL RDY* DOES NOT SET 
4978 F 7AN ERROR IS REPORTED. NOTE THAT 
4979 ;THE PC IN ERROR MESSAGE IS THE 
4980 :PC WHERE "CNT.RESET’ IS LOCATED. 
4981 sTHIS IS A VERY BASIC ERR& IF UIT 
4982 sOCCURS GO BACK TO TEST 10 
4983 015434 004737 - 021356 JSR PC,CHKECLR sCHECK IF ‘OVR*® BIT WAS CLEARED BY 
4984 :CON.RESET, IF NOT RETURN HERE. 
4985 015440 104102 ERROR 102 :CNTRL RESET DID NOT CLEAR OVR 
4986 :BIT IN RKER | 
4987 015442 004737 021402 5$: JSR PC,CHKCCLR sCHECK IF ‘ERR® & ‘HE’ BIT GOT CLEARED BY 
' 4988 ;CON.RESET, IF NOT RETURN HERE. 
4989 015446 104102 ERROR 102 ;CNTRL RESET DID NOT CLEAR 
4990 sHE OR ERR BIT IN RKCS. 
4991 015450 004737 021504 6$: JSR PC ,DRESET :GO DO DRIVE RESET 
4992 015454 104026 ERROR 26 sR/W/S RDY DIDN'T SET 
ps sAFTER THE ABOVE DRIVE RESET 
4995 FEE da lahehalahahalalalatahelhalahaheiaheiaheiaheichahsiataiad iciatetnteistelahaiaiataistaiataiaiateistaiahstaieieiateiahe 
4996 “STEST 42 SIMULATE & CHECK PGE ERROR 
4997 :*THIS TEST SIMULATES "PROGRAMMING ERROR’ & CHECKS IF IT IS 
4998 P > *DETECTED BY PGE BJT IN RKER. THEN A CNTRL RESET IS DONE & 
4999 s*IT IS CHECKED IF PGE BIT WAS CLEARED. IT IS ALSO CHECKED IF 
5000 :*THE SETTING & CLEARING OF PGE BIT SETS & CLEARS HE, ERR 
5001 :*BITS IN RKCS. 
5002 : PITTTITIITITIIT TITLE LLL LLL LLL LLL LL LLL LLL LLL 
5003 015456 000004 TST42: SCOPE 
5004 015460 104413 CNT.RESET :G0, DO CONTROL RESET 


5005 . :THIS IS A CALL FOR THE ‘CNTRL- 


« 


MD-11-CZRKKF, 
CZRKKF .P11 


015462 


015464 
015470 


015476 
015504 


015506 
015512 
015514 
015522 
015526 


015530 
015536 
015540 
015544 


015546 


015550 
015554 
015556 
015562 


104421 


013701 
013777 


012777 
104414 


032711 
001006 
012737 
004737 
104105 


022777 
001403 
004737 
104106 


104413 


004737 
104102 
004737 
104102 


001330 
001350 


002011 


004000 


004000 
021010 


142210 
021010 


021356 


021402 
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163642 
163626 


001166 


163574 
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SIMULATE & CHECK PGE ERROR 


TST.SIN 
MOV RKER,R1 
MOV DRIVAD,@RKDA 
MOV #2011,a@RKCS 
CNT.RDY 
BIT #4000,aR1 
BNE 1$ 
MOV #4000, SREG2 
JSR PC,GT2RG 
ERROR 105 

1$: CMP #142210,aRKCS 
BEQ 2$ 
JSR PC,GT2RG 
ERROR 106 

2$: CNT.RESET 
JSR PC,CHKECLR 
ERROR 102 

3$: JSR PC,CHKCCLR 
ERROR 102 


s*TEST 43 


RESET’ ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A 
:1F THE "CNTRL RDY* DOES NOT SET 
;AN ERROR IS REPORTED. NOTE THAT 
; THE PC IN ERROR MESSAGE IS THE 
:PC WHERE ‘CNT.RESET’ IS LOCATED. 
:THIS IS A VERY BASIC ERR@ IF IT 
;OCCURS GO BACK TO TEST 10 

:GO CHECK IF SIN IS SET, IF 

;SET DO DRIVE RESET TO CLR IT 


;ADRES THE DRIVE, CYLINDER 0 


:SEEK, GO WITH FMT SET 

;THIS IS A PGE SIMULATION 
:THIS IS A CALL FOR ‘CN.RDY' 
sROUTINE WHICH WAITS FOR CNT 
;RDY TO SET. 
;NOT SET WITHIN 883 MS/ 11-20 

(176 MS FOR 11-45 WITH BIPOLAR) 
;AN ERROR IS REPORTED 

:DID PGE BIT IN RKER SET? 

7 YES, BRANCH 

;THIS BIT IN RKER (PGE) DID NOT SET 
:GO GET RKCS, ER FOR MESAGE 

:PGE BIT DID NOT SET IN RKER 

;ON SIMULATION OF PGE CONDITION 
;$REG2 CONTAINS THE RKER BIT (PGE) 
THAT SHOULD HAVE SET. 

:DID HE & ERR BITS SET? 

YES, BRANCH 

:GO0, GET RKCS, ER 

sHE OR ERR BIT DID NOT SET WHEN 
:PGE SET IN RKER. 

;CLEAR PGE, HE, ERR BITS 

:GO, DO CONTROL RESET 

>THIS IS A CALL FOR THE ‘CNTRL- 
;RESET* ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 

; IF THE "CNTRL RDY* DOES NOT SET 
;AN ERROR IS REPORTED. NOTE THAT 

; THE PC IN ERROR MESSAGE IS THE 

:PC WHERE “CNT.RESET* IS LOCATED. 
;THIS IS A VERY BASIC ERRG IF IT 
;OCCURS GO BACK TO TEST 10 

;CHECK IF ‘PGE* BIT GOT CLEARED BY 
; CONTROL RESET, 
;CNTRL RESET DID NOT CLEAR 

:PGE BIT IN RKER 

;CHECK IF ‘ERR’ BITGOT CLEARED BY 
; CON.RESET, 
:RKCS BITS HE OR ERR DID NOT 
:GET CLEARED BY CNTRL RESET 


'MABRBRBRARBAABAAAAARSARAASAAAARRASARARRARARRRARRRRRARARR RRR SARA SARA SDS | 


CERTAIN TIME 


IF CNTRL RDY DOES 


IF NOT RETURN HERE. 


IF NOT RETURN HERE. 


SIMULATE & CHECK NXM ERROR 


SEQ 0092 


. 
MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2 MACY11 30A(1052) 21-FEB-78 08:58 PAGE 94 


CZRKKF .P11 21-FEB-78 08:51 143 SIMULATE & CHECK NXM ERROR SEQ 0093 
5962 :*THIS TEST SIMULATES A NON-EXISTENT MEMORY ERROR (NXM) AND 
5063 :*CHECKS IF IT IS DETECTED BY NXM BIT OR RKER.LOCATION 760000 
5064 :*1S REFERENCED & IT HAPPENS TO BE A NON EXISTENT LOCATION 
5065 :*(FOR DIAGNOSTIC PURPOSES LIKE THIS). IT IS ALSO CHECKED 
5066 :*1F HE & ERR BITS ALSO SET AND ALL 3 BITS CAN BE CLEARED 
5067 3* BY CONTROL RESET. 

5068 : PITITITITITITT LITTRELL LITLE iii iii 
5069 015564 000004 TST43: SCOPE 

5070 015566 104413 CNT.RESET :G0, DO CONTROL RESET 

5071 :THIS IS A CALL FOR THE ‘CNTRL- 
5072 sRESET’ ROUTINE. A CONTROL RESET IS 
5073 ; ISSUED AND AFTER A CERTAIN TIME 
5074 :1f THE *CNTRL RDY* DOES NOT SET 
5075 ;AN ERROR IS REPORTED. NOTE THAT 
5076 ; THE PC IN ERROR MESSAGE IS THE 
5077 :PC WHERE ‘CNT.RESET' IS LOCATED. 
5078 ;THIS IS A VERY BASIC ERR@ IF IT 
5079 sOCCURS GO BACK TO TEST 10 

5080 015570 104421 TST.SIN :GO CHECK IF SIN IS SET 

5081 :1F SET DO DRIVE RESET TO CLR IT 
5082 015572 005002 CLR R2 

5083 015574 013700 001332 MOV RKCS, a 

5084 015600 012777 177777 163526 MOV #-1 ,aRKWC sWRITE CHECK 1 WORD 

5085 015606 012777 160000 163522 MOV #160000 aRKBA :AT THIS BUS ADRES 

5086 015614 013777 001350 163516 MOV DRIVAD,@RKDA sWITH THIS DISK ADRES (CYL 0, SEC 0) 
5087 015622 012710 000067 MOV #67, aRO :WRT CHK, GO, MEX BITS SET 

5088 015626 105777 163500 1$: TSTB @RKCS :D1D CNTRL RDY SET AS A RESULT OF HE? 
5089 015632 100410 BM] 2$ : YES, BRANCH 

5090 015634 005202 INC Re ;WAITED LONG ENOUGH? 

5091 015636 001373 BNE 1$ ;1f NOT LUP BAK @ WAIT 

5092 015640 004737 021010 JSR PC ,GT2RG :GET RKCS, ER 

5093 015644 017737 163464 001166 MOV @RKWC ,SREG2 :GET RKWC 

5094 015652 104113 ERROR 113 ;CNTRL RDY DID NOT SET ON DOING 
5095 :A WRT CHK WITH A NXM LOCATION. 
5096 : THIS HE SHOULD HAVE SET THE 

5097 :CNTRL RDY BIT IN RKCS 

5098 015654 032777 002000 163446 2$: BIT #2000 ,aRKER :DID NXM BIT IN RKER SET? 

5099 015662 001006 BNE 3$ : YES. BRANCH 

5100 015664 004737 021010 JSR PC,GT2RG :GO GET RKCS, RKER 

5101 015670 012737 002000 001166 MOV #2000, $REG2 :THIS BIT (NXM) DID NOT SET IN RKER 
5102 915676 104105 ERROR 105 :NXM BIT DID NOT SET IN RKER ON 
5103 s;SIMULATING NXM CONDITION. 

5104 015700 022710 140266 3$: CMP #140266 ,aR0 :DID HE & ERR BIT SET? 

5105 015704 001403 BEQ 4$ :YES, BRANCH 

5106 015706 004737 021010 JSR PC ,GT2RG :G0, GET RKCS, RKER 


015712 104106 ERROR 106 ;HE OR ERR BIT DID NOT SET WHEN 
;NXM ERROR WAS SIMULATED 
:CLEAR NXM, HE, ERR BITS 

015714 104413 4$: CNT.RESET ;GO, DO CONTROL RESET 
;THIS IS A CALL FOR THE ‘CNTRL- 
;RESET® ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
IF THE ‘CNTRL RDY' DOES NOT SET 
;AN ERROR IS REPORTED. NOTE THAT 
;THE PC IN ERROR MESSAGE IS THE 
;PC WHERE 'CNT.RESET’ IS LOCATED. 


MMMM VIM 
ab 8 ne a 
ed et et ont at ot eet CO 
NOUS WNM Oo OOnN 
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CZRKKF P11 21-FEB-78 08:51 143 SIMULATE & CHECK NXM ERROR SEQ 0094 
5118 THIS IS A VERY BASIC ERR@ IF IT 
5119 sOCCURS GO BACK TO TEST 10 
3120 015716 0047357 021356 JSR PC, CHKECLR sCHECK IF “NXM' BIT GOT C;LEARED BY 
5121 sCON.RESET, IF NOT RETURN HERE. 
5122 015722 104102 ERROR 102 :CNTRL RESET DID NOT CLEAR 
5123 :NXM BIT IN RKER 
3124 015724 0047357 021402 5$: JSR PC, CHKCCLR ;CHECK IF “HE* & ‘ERR* BITS GOT CLEARED 
5125 ;BY CON.RESET, IF NOT RETURN HERE. 
5126 015730 104102 ERROR 102 :CNTRL RESET DID NOT CLEAR 
5127 ;HE OR ERR BIT IN RKCS. 

5128 015732 004737 021436 6$: JSR PC, TSTRWS GO CHECK IF R/W/S RDY IS SET & 
5129 ;WAIT FOR IT. SKIP ERROR IF IT IS SET 
at 015735 104016 ERROR 16 sR/W/S RDY IS NOT SET 

$132 SPUR A RARER AAA AAA AAA A AAA A TATA TEA ETAT KARATE eee eRe 
5133 S*TEST 44 SIMULATE & CHECK NXD ERROR 

5134 :*THIS TEST SIMULATES NON-EXISTENT DISK ERROR & CHECKS IF 
5135 :*IT IS DETECTED BY NXD BIT OF RKER. IF ALL EIGHT ARE PRESENT 
5136 :*THEN THIS TEST IS ABORTED FOR SIMULATION CANNOT BE DOWE. 
5137 PPPTIITITITITLITITIIITILILT LILLE LITLE LLP 
5138 015740 000004 TST44: SCOPE 

5139 015742 104413 CNT.RESET GO, DO CONTROL RESET 

5140 sTHIS IS A CALL FOR THE *CNTRL~- 
5141 ;RESET’ ROUTINE. A CONTROL RESET IS 
5142 ; ISSUED AND AFTER A CERTAIN TIME 
5143 sIF THE "CNTRL RDY* DOES NOT SET 
5144 sAN ERROR IS REPORTED. NOTE THAT 
5145 ;THE PC IN ERROR MESSAGE IS THE 
5146 ;PC WHERE *CNT.RESET’ IS LOCATED. 
5147 sTHIS IS A VERY BASIC ERRE IF IT 
5148 sOCCURS GO BACK TO TEST 10 

5149 015744 104421 TST.SIN sCHECK IF SIN IS SET, IF SET 

5150 :DO0 ORV RESET TO CLR IT 

5151 015746 013700 001332 MOV RKCS,RO 

5152 015752 012702 160000 MOV #160000 ,R2 sADRES DRIVE 7 TO FIND 

5153 cif IT IS PRESENT 

5154 015756 010277 163356 1$: MOV R2,@RKDA ;ADRES DRIVE # POINTED TO BY Re 
5155 015762 104417 000001 DELAY ,1 sTIME DELAY, 7.5 US ON 11/20, 
5156 21.5 US ON 11/45 

5157 015766 105777 163334 TSTB @RKDS :IS IT PRESENT? 

5158 015772 100004 BPL 2s :NO, BRANCH 

5159 015774 062702 160000 ADD #-20000,R2 sADRES THE NXT DRIVE IN THE 

5160 sREVERSE ORDER. I.E. 7.6.. 

5161 016000 001366 BNE 1$ :LUP BAK & TRY TO FIND A DRIVE 
5162 : THAT'S NOT PRESENT 

eiae 016002 000435 BR TST45 ;;EXIT TO THE NXT TST 

5165 016004 012710 000015 23: MOV #15,aR0 sDRIVE RESET, ON A NX DRIVE 

5166 016010 104417 000106 DELAY ~,106 >TIME DELAY, 525 US ON 11/20 
5167 7105 US ON 11/45 

5168 016014 105777 163310 TSTB @RKER ;DID NXD BIT IN RKER SET? 

5169 016020 001006 BNE 3$ > YES, BRANCH 

5170 016022 004737 021010 JSR PC,GT2RG ;GET RKCS, RKER 

5171 016026 012737 000200 001166 MOV #200, $REG2 ;THIS BIT (NXD) IN RKER DID NOT SET 
5172 016034 104105 ERROR 105 :NXD BIT DID NOT SET ON TRYING 
5173 :TO PERFORM A FUNCTION ON A 
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CZRKKF 


P11 


016036 
016042 
016044 
016050 


016052 


016054 
016060 
016062 
016066 
016070 
016074 


016076 
016100 
016104 
016112 
016116 
016122 


016130 
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022710 
001403 
004737 
104106 


104413 


004737 
104102 
004737 
104102 
004737 
104016 


000004 
013700 
012737 
013702 
052702 
012737 


104413 


08:51 


140214 
021010 


021356 


021402 


021436 


001332 
177773 =001362 
001350 


014540 
016130 001110 
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T44 


4$: 


5$: 


SIMULATE & CHECK NXD ERROR 


sNON-EXISTENT DRIVE 

;CHECK THAT THE JUMPER CARD CONTAINING 
; JUMPERS FOR DRIVES PRESENT IS PROPERLY 
; CONNECTED 

;NOTE THAT ON RKIIC IF A DRIVE 

:1S OFFLINE BUT PHYSICALLY PRESENT 

: (IE. ORY IS CLR FOR THAT DRIVE) 

:& A FUNCTION IS INITIATED ON THAT 
:DRIVE NXD WON'T SET, BUT U WILL 

;GET ONLY A DRE,HE & ERR. 


CMP #140214 ,aR0 :DID HE & ERR SET WHEN NXD SET? 


BEQ 4$ YES BRANCH 

JSR PC,GT2RG ;HE OR ERR BIT DID NOT SET 

ERROR 106 ;WHEN NXD WAS SIMULATED 
;CLEAR NXD, HE, ERR BITS 

CNT.RESET :GO, DO CONTROL RESET 


;THIS IS A CALL FOR THE ‘CNTRL- 
RESET’ ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
IF THE ‘CNTRL RDY* DOES NOT SET 
;AN ERROR IS REPORTED. NOTE THAT 

: THE PC IN ERROR MESSAGE IS THE 
PC WHERE ‘CNT.RESET® IS LOCATED. 
;THIS IS A VERY BASIC ERR@ IF IT 
:OCCURS GO BACK TO TEST 10 

>CHECK IF “NXD* BIT WAS CLEARED BY 
>CON.RESET. IF NOT, RETURN HERE. 


JSR PC, CHKECLR 


ERROR 102 :CNTRL RESET DID NOT CLEAR 
:NXD BIT IN RKER 
JSR PC, CHKCCLR ;CHECK IF "HE & “ERR’ BITS WERE CLEARED 
;BY CON.RESET. IF NOT RETURN HERE. 
ERROR 102 :CNTRL RESET DID NOT CLEAR 
;HE OR ERR BIT IN RKCS 
JSR PC,TSTRWS ;GO CHECK & WAIT FOR R/W/S RDY 
:TO SET. IF SET SKIP ERROR 
ERROR 16 — SHOULD BE SET, IT'S 


STUART ARETE TLE TARA TARA AERA A AAAERARAAKAEAAARAKAAAREEKEEKEES 


s*TEST 45 


SIMULATE & CHECK NXC ERROR 

s*THIS TEST SIMULATES THE NON-EXISTENT CYLINDER ERROR & CHECKS 
s*IF IT IS DETECTED BY THE NXC BIT OF RKER, HE & ERR BITS 

Bt IT IS CHECKED IF THEY CAN BE CLEARED BY CONTROL 

;* 


ST REAR AA REA EAA AEE ATER AA AAATA AAA AAA AEA A AAA TARA AAAAARARAAAREKAEE 


TST45: 
2$: 


3$: 


SCOPE 

MOV RKCS,RO 
MOV #-5, COUNT 
MOV DRIVAD ,R2 
BIS #14540,R2 
MOV #3$,SLPERR 


CNT.RESET 


;ALLOW "ERROR 133° ONLY 5 TIMES 
;GET ADRES OF DRIVE 

;SET BITS FOR CYL 313 

;SET RETURN ADRES FOR 

;LUPING ON EROR (SW9) 

;GO, DO CONTROL RESET 

sTHIS IS A CALL FOR THE ‘CNTRL- 
;RESET’ ROUTINE. A CONTROL RESET IS 
+; ISSUED AND AFTER A CERTAIN TIME 


SEC 0095 


MD-11-CZRKKF, 


CZRKKF. 


P11 


016132 


016136 
016140 


016142 
016146 
016152 


016154 


016156 


016200 


016202 


016206 
016210 
016212 
016216 


016220 
016224 
016226 
016232 
016236 


016240 
016244 
016246 
016252 


016254 


004737 


104016 
104421 


010277 
012710 
104412 


104021 


032777 
001020 
004737 
017737 
104110 


004737 


104016 
104413 
004737 
104026 


005237 
001405 
062702 
032702 
001334 


032710 
001003 
004737 
104106 


104413 


021436 


163172 
000011 


000100 


021010 
163142 


021436 


021504 


001362 
000040 
017740 
140000 
021010 
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163144 


001166 


MACY11 30A(1052) 
145 


9$: 


4$: 


5$: 


6$: 


JSR PC, TSTRWS 
ERROR 16 
TST.SIN 

MOV R2,@RKDA 


MOV #11,aR0 
CHKCROY 


ERROR 21 


BIT * id ae 
JSR PC,GT2RG 
MOV @RKDA,SREG2 
ERROR 110 

JSR PC, TSTRWS 
ERROR 16 


SET 
JSR PC ,DRESET 
R 26 


INC COUNT 
5$ 
ADD #40 ,R2 
BIT #17740,R2 
3$ 
BIT oo 
JSR PC,GT2RG 
ERROR 106 


CNT.RESET 


F 8 
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:1F THE "CNTRL RDY' DOES NOT SET 
;AN ERROR IS REPORTED. NOTE THAT 
;THE PC IN ERROR MESSAGE IS THE 
:PC WHERE ‘CNT.RESET’ IS LOCATED. 
;THIS IS A VERY BASIC ERRE IF IT 
;OCCURS GO BACK TO TEST 10 

:GO CHECK & WAIT FOR R/W/S RDY 
:TO SET. 
:R/W/S RDY IS NOT SET 
:CHECK IF SIN IS SET, 
7D0 DRIVE RESET TO CLR IT 

;ADRES DRIVE, NXC CYLINDER 

:SEEK, GO TO NXC CYL 

:GO CHECK IF CONTROL RDY IS SET 

;1F SO, SKIP THE EROR MESSAGE. 
;SEEK WAS TRIED TO A NON EXISTENT 
sCYLINDER, NXC SHOULD HAVE OCCURED 
:SETTING CNTRL RDY. BUT CNTRL RDY 
:DID NOT SET. 

:DID NXC SET? 

:YES, BRANCH 

:GO GET RKCS, ER 

:GET RKDA 

3NXC DID NOT SET WHEN SEEK 

sWAS TRIED TO CYLINDER AS INDICATED 
: IN RKDA 

:CHECK & WAIT FOR R/W/S RDY. 

:1F SET SKIP ERROR 

:R/W/S SHOULD BE SET 

:GO DO CONTROL RESET 

;GO DO DRIVE RESET 

:NXC DID NOT SET AND DRIVE MAY 
;HAVE TRIED TO DO A SEEK, AFTER 
:WHICH R/W/S RDY DID NOT SET 

sALLOW ONLY 5 MESSAGES FOR 

sERROR 133 


SEQ 0096 


IF SET SKIP ERROR BELOW 
IF SET 


:ADRES THE NXT CYLCIN NON-EXISTENT ZONE) 
;CHKD FOR ALL NXC°S? 
:;1F NOT, LUP BAK & CHK THE NXT NXC 


:DID HE & ERR BIT SET WHEN NXC BIT SET? 
:YES, BRANCH 

;GET RKCS, ER 

:HE OR ERR BIT DID NOT SET IN RKCS 
:WHEN NXC ERROR WAS SIMULATED 
;CLEAR HE, ERR, NXC BITS 

:G0, DO CONTROL RESET 

:THIS IS A CALL FOR THE ‘CNTRL- 
:RESET’ ROUTINE. A CONTROL RESET IS 
: ISSUED AND AFTER A CERTAIN TIME 
sIF THE "CNTRL RDY* DOES NOT SET 
:AN ERROR IS REPORTED. NOTE THAT 

: THE PC IN ERROR MESSAGE IS THE 

sPC WHERE "CNT.RESET® IS LOCATED. 
;THIS IS A VERY BASIC ERRE& IF IT 
sOCCURS GO BACK TO TEST 10 
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MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2 ot i 30A(1052) 


CZRKKF P11 21-FEB-78 08:51 SIMULATE & CHECK NXC ERROR SEQ 0097 
5286 016256 004737 0213556 JSR PC, CHKECLR sCHECK IF "NXC* BIT WAS CLEARED BY 
5287 ;CON.RESET. IF NOT, RETURN HERE. 
5288 016262 104102 ERROR 102 ;CNTRL RESET DID NOT CLEAR 
5289 sNXC BIT IN RKER. 

5290 016264 032710 140000 7$: BIT #140000 ,aRO :DID HE & ERR BITS GET CLEARED? 
5291 016270 001405 BEQ TST46 :3YES, EXIT 

5292 016272 010037 001162 MOV RO, $REGO :GET ADRES OF RKCS 

5295 016276 011037 001164 MOV @RO,$REG1 GET RKCS CONTENTS 

5294 016302 104102 ERROR 102 ;CNTRL RESET DID NOT CLEAR 

eae ;HE OR ERR BIT IN RKCS 

5297 ME RPESELESSASELALEL ESATA SE SESSLER RASS SELES SEES ETE TEE TTT ET ee EE 
5298 :*TEST 46 SIMULATE & CHECK NXS ERROR 

5299 *THIS TEST SIMULATES NON~EXISTENT SECTOR ERROR & CHECKS THAT 
5300 :*1T IS DETECTED BY NXS BIT OF RKER. IT IS CHECKED THAT 
5301 ;*WHEN NXS SETS HE & ERR OF RKER ALSO SETS, AND ALL THREE 
5302 :*CAN BE CLEARED BY CONTROL RESET. 

5303 SRR RRA AREER AERA EEA A EATER TEE AA ET AKA TREAT A Eee 
53504 016304 000004 TST46: SCOPE 

5305 016306 104413 CNT.RESET :GO, DO CONTROL RESET 

5306 THIS IS A CALL FOR THE ‘CNTRL- 
5307 sRESET’ ROUTINE. A CONTROL RESET IS 
5308 : ISSUED AND AFTER A CERTAIN TIME 
5309 :1F THE ‘CNTRL RDY’ DOES NOT SET 
5310 sAN ERROR IS REPORTED. NOTE THAT 
5311 THE PC IN ERROR MESSAGE IS THE 
5312 ;PC WHERE “CNT.RESET’ IS LOCATED. 
5313 >THIS IS A VERY BASIC ERR& IF IT 
5314 OCCURS GO BACK TO TEST 10 

5315 016310 013700 001332 MOV RKCS,RO 

5316 016314 013777 001350 163016 MOV DRIVAD ,@RKDA GET ADRES OF DRIVE 

5317 016322 052777 000014 163010 BIS #14 ,QRKDA :SET BITS FOR SECTOR 12 (DECIMAL) 
5318 016350 012777 177777 162776 MOV #~1 ,aRKwC ;READ 1 WORD 

5319 016336 012777 033342 162772 MOV #WOUTBUF A@RKBA ;INTO THIS BUS ADRES 

5320 016344 012710 000005 MOV #5 ,aR0 sREAD, GO (FROM NX SECTOR) 

5321 016350 104414 CNT.RDY ;THIS IS A CALL FOR ‘CN.RDY' 

5322 ROUTINE WHICH WAITS FOR CNT 

5323 sRDY TO SET. IF CNTRL RDY DOES 
5324 :NOT SET WITHIN 885 MS/ 11-20 
5325 ;(176 MS FOR 11-45 WITH BIPOLAR) 
5326 sAN ERROR IS REPORTED 

5527 :NXS ERROR SHOULD OCCUR NOW 

5528 016352 017702 162752 MOV @RKER,R2 

5329 016356 032702 000040 BIT #40,R2 :DID NXS BIT SET IN RKER? 

5330 016362 001006 BNE 1$ >YES, BRANCH 

5331 016364 004737 021010 JSR PC ,GT2RG GO GET RKCS, RKER 

5332 016370 012737 00004 001166 MOV #40, $REG2 THIS BIT (NXS) IN RKER DID NOT SET 
5333 016376 104105 ERROR 105 :NXS BIT DID NOT SET ON SIMULATING 
5334 :NXS ERROR 

5335 016400 042702 000040 1$: BIC #40,R2 ;MASK NXS BIT 

5336 016404 001407 BEQ 2$ CHECK IF ANY OTHER 

5337 >RKER BIT SET 

5338 016406 012737 000040 001162 MOV #40, $REGO :GET EXPCTD RKER 

5339 016414 017737 162710 001164 MOV @RKER, $REG1 :GET RKER RECVD 

5340 016422 104107 ERROR 107 sONLY “NXS* SHOULD BE SET 


;IN RKER, ANOTHER RKER BIT 


MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2 
21-FEB-78 0 


CZRKKF 


P11 


016432 
016436 


016440 


016442 
016446 
016450 
016454 


016456 
016460 
016464 


016466 
016470 


016474 
016500 


016504 


022710 


104106 


104413 


004737 
104102 
004737 
104102 


000004 
013700 
104413 


104421 
012701 


012702 
012703 


062703 


140204 
021010 


021356 


021402 


001332 


033342 
177400 
177777 


177401 
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SIMULATE & CHECK NXS ERROR 


T46 


2$: 


3$: 


4$: 


CMP #140204 ,aR0 
BEQ 3% 

JSR PC ,GT2RG 
ERROR 106 
CNT.RESET 

JSR PC,CHKECLR 
ERROR 102 

JSR PC,CHKCCLR 
ERROR 102 


sWAS SET. (NOTE ‘NXS* WAS 

; SIMULATED) 

;D1D0 HE &@ ERR BITS SET? 

YES, BRANCH 

;GO GET RKCS, RKER 

;HE OR ERR BIT DID NOT SET WHEN 
;NXS ERROR OCCURED 

: CLEAR NXS, HE, ERR BITS 

:GO, DO CONTROL RESET 

;THIS IS A CALL FOR THE ‘CNTRL- 
RESET’ ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
;1F THE *CNTRL RDY* DOES NOT SET 
;AN ERROR IS REPORTED. NOTE THAT 
;THE PC IN ERROR MESSAGE IS THE 

;PC WHERE ‘CNT.RESET* IS LOCATED. 
;THIS IS A VERY BASIC ERR@ IF IT 
;OCCURS GO BACK TO TEST 10 

:CHECK IF ‘NXS* BIT WAS CLEARED BY 
;CON.RESET. IF NOT, RETUEN HERE. 
;CNTRL RESET DID NOT CLEAR 

>NXS BIT IN RKER 

;CHECL IF ‘HE’ & "ERR" BITS WERE CLEARED 
;BY CON.RESET. IF NOT, RETURN HERE. 
:RKCS BITS ERR OR HE WERE NOT 
;CLEARED BY CNTRL RESET 


STRATA AAA EATER ERATE AERA AAA AER AEA EAA ARARAEERAAEAREEEEKREKREKE 


s*TEST 47 


1S147: 


1$: 


:*IN A PREVIOUS TEST. 


SIMULATE & CHECK WCE 

s*THIS TEST SIMULATES A WRITE CHECK ERROR AND CHECKS THAT IT 
:*1S DETECTED BY WCE BIT OF RKER. FOR COMPARISON IT USES 
;tTHE 256 WORDS DATA BLOCK WRITTEN ON SECTOR 0, CYLINDER 0 


THIS BLOCK IS COMPARED WITH THE 256 WORDS 


> *MEMORY BUFFER STARTING AT ‘OUTBUF'. WCE IS SIMULATED BY 
:*DROPPING A BIT FROM ONE OF THE WORDS IN THE MEMORY BUFFER. 


WROSSAAALSRAABRAAASBRARAASAAAARRARERARESRASAASLRARARERESAAAASASEASAL ESAS S&S @ | 


SCOPE 

MOV RKCS,RO 
CNT.RESET 

TST.SIN 

MOV #OUTBUF ,R1 
MOV #-400,R2 
MOV #177777,R3 
ADD #177401,R5 


;GO, DO CONTROL RESET 

;THIS IS A CALL FOR THE ‘CNTRL- 
sRESET" ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
;1F THE "CNTRL RDY* DOES NOT SET 
;AN ERROR IS REPORTED. NOTE THAT 
;THE PC IN ERROR MESSAGE IS THE 
PC WHERE ‘CNT.RESET* IS LOCATED. 
;THIS IS A VERY BASIC ERR& IF IT 
;OCCURS GO BACK TO TEST 10 

;CHECK IF SIN IS SET, IF 

;SET DO DRV-RESET TO CLR IT 

;THIS CODE SETS UP A MEMORY 
:BUFFER OF 256 WORDS STARTING 


;AT OUTBUF 
sFIRST WORD 177400 
; SECOND 177001 


SEQ 0098 


MD-11-CZRKKF, 


CZRKKF 


-P11 


016510 
016512 
016514 


016516 


016524 
016532 
016540 
016546 


016552 
016554 
016556 
016564 
016566 
016572 
016600 
016602 
016606 
016610 
016614 


016616 
016620 


016624 
016626 
016632 


016634 
016636 


010321 
005202 
001373 


012737 


012777 
012777 
013777 
012710 


104412 
104065 
032777 
001006 
004737 
012737 
104105 
022710 
001403 
004737 
104106 


104413 
004737 


104102 
004737 
104102 


000004 
104413 
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170007 


177400 
033342 
001350 
000007 


000001 
021010 
000001 
100206 
021010 
021356 


021402 


TEST 2 


033360 


162602 
162576 
162572 


162544 


001166 


MACY11 30A(1052) 
147 


3$: 


4$: 


5$: 


6$: 


MOV 
INC 
BNE 
> 
MOV 


MOV 
MOV 


CHKCRDY 


ERROR 


BIT 
BNE 


CNT.RESET 
JSR 


ERROR 
JSR 
ERROR 
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SIMULATE & CHECK WCE 


R3,(R1)+ 
R2 
1$ 


;LAST WORD 
;HAVE U GENERATED ALL 256 WORDS? 
;1F NOT, LUP BAK & GENERATE NXT 


000377 


#170007, tiie ;WCE WILL B SIMULATED BY DROPPING A 


#-400 ,arKwC 
#OUTBUF ,@RKBA 
DRIVAD,@RKDA 
#7,aR0 


65 

#1, aRKER 
4% 
PC,GT2RG 
#1,$REG2 
105 
#100206 ,aRO 
5$ 
PC,GT2RG 
106 
PC,CHKECLR 
102 
PC,CHKCCLR 


102 


IT IN THE EIGHTH WORD WHICH IS 
; SUPPOSED TO B 174007 
;WRT CHK 400 WORDS 


= STARTING AT THIS BUS ADRES 
sWITH THIS DISK ADRES, SEC 0, CYL O 
sWRT CHK, GO 


:GO CHECK IF CONTROL RDY IS SET 
;1F SO, SKIP THE EROR MESSAGE. 
;CNTRL RDY DID NOT SET 

;AFTER WRT CHK 

:D10 WCE BIT SET? 


;GO, GET RKCS, RKER 

; THIS BIT (WCE) DID NOT SéET 
;WCE DID NOT SET ON SJMULATING 
:WCE CONDITIONS 

;1S RKCS CORRECT? 

YES, BRANCH 

:GO, GET RKCS, RKER 

;HE OR ERR BIT DID NOT SET WHEN 
;WCE WAS SIMULATED 

;CNTRL RESET 

sWAS "WCE* BIT CLEARED? 

; IF NOT, RETURN HERE. 

;CNTRL RESET DID NOT CLEAR 

;WCE BIT IN RK 

; CHECK IF 
;NOT RETURN HERE. 

Bohn RESET DID NOT CLEAR 
:RK 


ER 
"ERR" BIT WAS CLEARED. IF 


SS ERATE ERATE TAKARA EHC EK T ALAS AAARAREARAAKARAARERKAAAKKEKE 


CHECK THAT SSE STOPS ALL CONTROL ACTION ON SOFT ERROR 


“aTEST 50 


TST50: 


;*THIS TEST CHECKS THAT WHEN “STOP ON SOFT ERROR" BIT IS SET IN 
>*RKCS AND A SOFT ERROR IS ENCOUNTERED ALL CONTROL ACTION WILL 
:*STOP AT THE END OF THE CURRENT SECTOR I* IDE BIT IS CLEAR. 
>*SOFT ERROR IS SIMULATED BY A WCE AS IN fHE PREVIOUS 

;*TEST. THE PREVIOUS TEST & THE TEST WHICH WRITES DATA 

> *BLOCK ON 1 aie 0, SECTOR 0, SHOULD BE DONE PRIOR 


;*TO THIS TEST. 


A TwO SECTOR ‘WRT CHK’ WILL BE DONE, 


;*CONTROL ACTION SHOULD STOP AFTER THE FIRST SECTOR DURING 
;*WHICH A SOFT ERROR IS SIMULATED. 


ETITIITITITITITIITI TTT LL TTL EEL LLL 


SCOPE 


CNT.RESET 


;GO, DO CONTROL RESET 

;THIS IS A CALL FOR THE ‘CNTRL- 
;RESET’ ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A 
;1F THE "CNTRL RDY* DOES NOT SET 
;AN ERROR IS REPORTED. NOTE THAT 


CERTAIN TIME 


SEQ 0099 


MD~-11-CZRKKF, 


CZRKKF. 


P11 


016640 


016642 
016646 


016654 
016660 
016666 
016674 
016700 
016704 


016706 


016710 


016716 
016720 
016726 
016734 


016736 
016740 


016744 
016746 
016752 
016760 


104421 


013700 
012737 


013701 
012777 
012777 
010177 
012710 
104412 


104065 


022777 


001407 
012737 
017737 
104107 


005201 
020177 


001406 
010137 
017737 
104070 


001332 
170007 


001350 
177000 
033342 
162440 
000407 


000001 


000001 
162376 


162374 


001162 
162362 
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033360 


162446 


162442 


162412 


001162 
001164 


001164 


MACY11 30A(1052) 
CHECK THAT SSE STOPS ALL CONTROL ACTION ON SOFT ERROR 


;THE PC IN ERROR MESSAGE IS THE 
"CNT.RESET’ IS LOCATED. 
;THIS IS A VERY BASIC ERR& IF IT 
;OCCURS GO BACK TO TEST 10 
;CHECK IF SIN IS SET, IF 
;SET DO DRIVE RESET TO CLR IT 


RO 
#170007 ,OUTBUF +16 ;WCE IS SIMULATED BY DROPPING A BIT 
;IN THE EIGTH WORD (WHICH IS ACTUALLY 
:174007). NOTE THAT 256 WORD MEMORY 
;BUFFER IS CREATED IN THE PREVIOUS TEST. 


sWRT CHK 1000 (OCTAL) WORDS, 2 SECTORS 
;FROM THIS BUS ADRES 
sWITH THIS DISK ADRES, SEC 0, CYL O 
sWRT CHK, GO, SSE 

:GO CHECK IF CONTROL RDY IS SET 

:1F SO, SKIP THE EROR MESSAGE. 
:CNTRL RDY DID NOT SET AFTER WRT 
;CHK. A SOFT ERROR (WCE) IN 
:SECTOR 0 SHOULD HAVE STOPPED 
;ALL CONTROL ACTION. 

sCHECK ONLY ‘WCE’ BIT SHOULD 
:BE SET? 
:YES, BRANCH 
;GET EXPCTD RKER 

:GET RKER RECVD 

sONLY BIT ‘WCE’ OF RKER 
;SHOULD BE SET (WCE WAS 
sSIMULATED ABOVE). 
:IF IT'S NOT 
;CHECK THAT RKDA INCREMENTED BY 
:1 SECTOR ONLY IMPLYING THAT 
sCNTRL ACTION DID STOP AFTER 
;SOFT ERROR IN SECTOR O 
32:VES, 2211 

:GET EXPCTD RKDA 

:GET RKDA RECVD 

;RKDA SHOULD HAVE INCRMNTD 
:BY 1 SECTOR ONLY, 
:WCE WAS SIMULATED IN THE 
sFIRST SECTOR & A WRT CHK 
sOF 2 SECTORS WAS ISSUED. 
sCONTROLLER SHOULD STOP AFTER 
sDETECTING WCE IN THE FIRST 
HENCE RKDA SHOULD 
: INCREMENT BY 1 SECTOR ONLY 


T50 


2$: 


3$: 


‘WeORGSARARESARRRESASSAR RASA ARRAS SAR SE RASSSS AAAS A ASAE ARAL D ASS ODO 


CHECK THAT RK11 INTERRUPTS ON SOFT ERROR WHEN SSE & ty ARE SET 


TST.SIN 


MOV 


CHKCRDY 


ERROR 


s*TEST 51 


:*THIS TEST CHECKS WHEN SSE BIT IS SET WITH IDE SET AND A SOFT 
:*ERROR OCCURS, THEN ALL CONTROL ACTION WILL STOP AND A BUS 
:*REQUEST (INTERRUPT) WILL OCCUR AT THE END OF THE CURRENT 
SOFT ERROR IS SIMULATED BY WCE AS IN PREVIOUS 


: *SECTOR. 
PREREQUISITES FOR THIS TEST ARE THE, SAME AS THOSE 


> *TEST. 


J 8 
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RKCS 


DRIVAD,R1 


#-1000,aRKWC 
#OUTBUF ,@RKBA 


R1,@RKDA 
#407,aR0 


65 


#1, QRKER 


3$ 
#1,$REGO 
@RKER, SREG1 
107 


R1 
R1,@RKDA 


TST51 
R1,$REGO 
@RKDA,SREG! 
70 


;PC WHERE 


SECTOR. 


ERROR 


IT DIDN'T. 


SEQ 0100 


MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2 


CZRKKF. 


P11 


016762 
016764 


016766 
016770 


016776 


017044 


017050 
017054 


017056 


017060 
017062 
017064 


017072 
017074 


017100 
017102 
017106 
017114 


017116 
017116 
017122 
017126 
017130 


000904 
104413 


104421 
012737 


013701 
012777 
012777 
010177 
013700 
012720 
012710 
012777 
104420 


004737 
104111 


000417 


022626 
022626 
012777 


005201 
020177 


001406 
070137 
017737 
104003 


012746 
012746 
000002 
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170007 


001350 


177777 


021010 


004600 


162240 


001162 
162226 


000340 
017130 


033360 


162324 
162320 


162266 


162310 


001164 
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CHECK THAT RK11 INTERRUPTS ON SOFT ERROR WHEN SSE & IDE ARE SET 


151 


:*FOR THE PREVIOUS TEST. 


'W—EeRARRBRBABRBRRBBRBRABRSBARBARARRRRRRRBRRRRRRRRRARRRRRRRRRRRRERARASRSRS SE SS 


1ST51: 


1$: 


2$: 


64$: 


eq” 


>GO, DO CONTROL RESET 

>THIS IS A CALL FOR THE ‘CNTRL- 
RESET" ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
; IF THE 'CNTRL RDY' DOES NOT SET 
;AN ERROR IS REPORTED. NOTE THAT 
;THE PC IN ERROR MESSAGE IS THE 
;PC WHERE ‘CNT.RESET* IS LOCATED. 
;THIS IS A VERY BASIC ERR@& IF IT 
;OCCURS GO BACK TO TEST 10 

;CHECK IF SIN IS SET, IF 

;SET DO DRIVE RESET TO CLR IT 


#170007,0UTBUF+16 ;WCE IS SIMULATED BY DROPPING A BiT 


SCOPE 

CNT.RESET 

TST.SIN 

MOV 

MOV DRIVAD,R1 
MOV #-1000,aRKWC 
MOV #OUTBUF ,@RKBA 
MOV R1,@RKDA 
MOV RKVEC,RO 
MOV #1$,(RO)+ 
MOV #340,aR0 
MOV #507 ,aRKCS 
WAT.INT,177777 

JSR PC,GT2RG 
ERROR 111 

BR 2$ 

CMP (SP)+,(SP)+ 
CMP (SP)+, (SP)+ 
MOV #BADINT ,aRKVEC 
INC R1 

CMP R1,@RKDA 
BEQ 2$ 

MOV R1,$REGO 
MOV @RKDA, $REG1 
ERROR 3 

MOV #340,-(SP) 
MOV #64$,-(SP) 
RTI 


;IN THE EIGHTH WORD (WHICH IS 174007) 
sNOTE THAT THE 256 WORD MEMORY 
;BUFFER (STARTING AT OUTBUF) IS 
;CREATED IN A PREVIOUS TEST. 


WRT CHK 1000 (OCTAL) WORDS, 2 SECTORS 
;FROM THIS BUS ADRES 
;WITH THIS DISK ADRES, SEC 0, CYL 0 


;SET UP INTERRUPT VECTOR FOR RK11 
;SET PSW ON INTERRUPT 

:WRT CHK, GO. SSE, IDE SET 

sWAIT FOR INTERRUPT FROM RK11 
;TIME=485 MS FOR 11/20, 

397 MS FOR a 


:11/0 
3RK11 DID NOT INTERRUPT AFTER A SOFT 
;ERROR (SIMULATED) IN SECTOR 0 


sRESTORE STACK POINTER (FROM RK11 INTRUPT) 
;POP STACK (FROM WAT.INT) 

;RESTORE RK11 INTERRUPT VECTOR 

;ADRES FOR UNEXPECTED INTERRUPTS 


;CHECK THAT RKDA INCREMENTED 
:BY ONLY 1 SECTOR BEFORE INTERRUPT 
OCCURRED 


;GET EXPCTD RKDA 

>GET RKDA RECVD 

;RKDA SHOULD HAVE INCREMENTED BY 

:1 SECTOR ONLY, IF ALL CNTRL ACTION 
;HAD STOPPED AFTER SOFT ERROR 

; (SIMULATED) IN SECTOR 0. IT DID NOT. 


SEQ 0101 


eee 
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CZRKKF .P11 21-FEB-78 08:51 151 CHECK THAT RK11 INTERRUPTS ON SOFT ERROR WHEN SSE & IDE ARE SET SEQ 0102 
Peg. 017130 005077 162176 CLR @RKCS ;CLEAR THE IDE BIT 
5568 
5569 PPE PRRESESESELLLALE SESE SALES ERLE SITET E LESSEE RETESET EEE EEE TEESE TT 
5570 :*TEST 52 CHECK THE MEX BITS IN RKCS 
5571 ;*THIS TEST CHECKS OUT THE EXTENDED MEMORY BITS OF THE RKCS. 
5572 ;tTHE RKBA IS SET TO 177776 AND A ONE WORD WRITE CHECK IS TRIED. 
5573 >*THIS COULD GIVE RISE TO NXM ERROR, BUT EVEN THEN THE RKBA 
5574 >*SHOULD OVERFLOW INTO THE MEX BITS. SIMILIARLY IT IS CHECKED 
5575 :*THAT THE OVERFLOWING BIT CAN MAKE THE MEX BITS COUNT 
5576 :#01,10,11,90 
5577 EPRPSESESSASASEL ESAS ELISE SESE RSE SEES SEE EES EEE ESE EEE ET PT PSS 
5578 017134 000004 TST52: SCOPE 
5579 017176 013700 001332 MOV RKCS,RO 
5580 017142 012701 177774 MOV #-4,R1 ;SET UP THE COUNT 
5581 017146 005002 CLR R2 > INITIALIZE MEX BITS TO B SET IN RKCS 
5582 017150 012737 017156 001110 MOV #1S,SLPERR ;SET RETURN ADRES FOR 
5585 ;LUPING ON EROR (SW9) 
5584 017156 104417 000142 1$: DELAY ,142 ; TIME DELAY 
5585 017162 004737 021436 JSR PC, TSTRWS sWAIT FOR R/W/S RDY 
5586 017166 104016 ERROR 16 :R/W/S RDY IS NOT SET 
5587 017170 104413 CNT.RESET :GO0, DO CONTROL RESET 
5588 ;THIS IS A CALL FOR THE ‘CNTRL- 
5589 ;RESET’ ROUTINE. A CONTROL RESET IS 
5590 ; ISSUED AND AFTER A CERTAIN TIME 
5591 ;1F THE ‘CNTRL RDY* DOES NOT SET 
5592 ;AN ERROR IS REPORTED. NOTE THAT 
5593 : THE PC IN ERROR MESSAGE IS THE 
5594 ;PC WHERE ‘"CNT.RESET’ IS LOCATED. 
5595 :THIS IS A VERY BASIC ERR@ IF IT 
5596 sOCCURS GO BACK TO TEST 10 
5597 017172 010210 MOV R2,aRO ;SET MEX BITS (AS IN R2) IN RKCS 
5598 017174 012777 177777 162132 MOV #-1 ,aRKWC ;WRT CHK 1 WORD 
5599 017202 013777 001350 162130 MOV DRIVAD ,@RKDA sTHIS DISK ‘ORES, SEC 0, CYL 0 
5600 017210 012777 177776 162120 MOV #177776,aRKBA ;THIS BUS ADRES. NOTE THIS BA 
5601 :IN CONJUCTIONW WITH MEX BITS OF RKCS 
5602 017216 052710 000007 BIS #7 ,aRO ;WRT CHK, GO 
5603 ; THERE MAY BE A NXM OR WCE BUT 
5604 ;WHATEVER THE CASE RKBA SHOULD 
5605 ;OVERFLOW MAKING THE MEX BITS COUNT 
5606 017222 104412 CHKCRDY ;GO CHECK IF CONTROL RDY IS SET 
5607 :IF SO, SKIP THE EROR MESSAGE. 
5608 017224 104065 ERROR 65 sCNTRi RDY DID NOT SET AFTER WRT CHK 
5609 017226 010205 3$: MOV R2,R5 
5610 017230 062705 000020 ADD #20,R5 ;MEX BITS SHOULD INCREMENT BY 1 TO THIS 
5611 017234 042705 000100 BIC #100,R5 ;MASK OUT IDE BIT POSITION, IF SET 
5612 017240 011004 MOV @RO,R4 :GET RKCS 

. 5615 017242 042704 177717 BIC #177717,R4 ;MASK OUT ALL BITS EXCEPT MEX 

~ 5614 017246 020504 CMP R5,R4 :DID MEX BITS INCREMENT CORRECTLY? 
5615 017250 001405 BEQ 4$ :YES, BRANCH 
5616 017252 010537 001162 MOV R5,$REGO ;GET EXPCTD MEX BITS 
5617 017256 010437 001164 MOV R4,$REG1 ;GET MEX BITS RECVD 
5618 017262 104112 ERROR 112 ;MEX BITS DID NOT INCREMENT AS 
5619 ;"EXPCTD' WHEN RKBA OVERFLOWED. 
5620 ;NOTE THAT BIT POSITION 4 & 5 


;REFLECT MEX BITS 0 & 1 IN THE 





MD-11-CZRKKF, 
CZRKKF .P11 


017264 
017270 
017272 
017276 
017300 
017304 
017310 
017316 


017320 
017324 
017326 


017330 
017332 


017340 
017346 
017352 


017360 


017410 


017412 


017703 
010305 
042703 
001410 
042705 
010537 
017737 
104107 


062702 
005201 
0013135 


000004 
012737 


012737 
005737 
012737 


000520 


000002 


013700 
104413 


012701 


162040 
003001 
177776 


001162 
162014 


000020 


000001 


017362 
177700 
004534 


004534 
000340 
017404 


001332 


033342 
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001164 


001206 


000004 
000004 


000004 


MACY11 30A(1052) 
T52 


4$: 


5$: 


m 8 
21-FEB-78 08:58 PAGE 104 
CHECK THE MEX BITS IN RKCS 


@RKER,RS 
R3,R5 
#3001,R3 
5$ 
#177776,R5 
R5,$REGO 
@RKER, SREG1 
107 
#20,R2 

R1 | 
1$ 


;ERROR MESSAGE. 

;GET RKER 

sMASK WCE,DLT,NXM BIT, IF SET 
;BRANCH IF REST OF RKER CLR 
;MASK NON-WCE BITS 

;THIS IS THE EXPCTD RKER 

;GET RKER RECVD 
;ERROR IN RKER. 
:BE AS EXPECTED IN 

;ERROR MESSAGE 

; INCREMENT TO NXT MEX BIT 

;HAVE U CHKD THE MEX BITS 4 TIMES? 
IF NOT, LUP BACK 


IT SHOULD 


SURE AREA AERA AEE AAA AAT AAA AAEEARAREEKEAEKEAEEREREEEE 


TRANSFER FROM DISK TO TTY 


:*TEST 53 


5$: 


64$: 


;* THIS TEST CHECKS THE HIGH ORDER BITS OF THE ADDRESS 
FIRST A ONE WORD (100) IS WRITTEN ON SECTOR, 


:* LINES. 
s* 2, CYL Q. 


THEN IT IS READ BACK, BUT THE NPR IS DONE 


:* NOT TO THE MEMORY, BUT THE TELETYPE BUFFER (TKS 177560) 
:* AND IT CHECKED THAT THE WORD WAS RECIEVED CORRECTLY. 
:tIF IT IS NOT, AN ERROR IS REPORTED. THIS TEST IS 


;*SKIPPED ON AN 11/05. 


PETTITITITITILITLI TELL T ELLE LLL ELLE LLL 


TST53: 


SCOPE 

MOV #1,STIMES 
MOV #5$,a84 

TST a#177700 
MOV #BADTMO,a#4 
BR TST54 

CMP (SP)+,(SP)+ 
MOV #BADTMO,a#4 
MOV #340,-(SP) 
MOV #64$,~-(SP) 
RTI 

MOV RKCS,RO 
CNT.RESET 

MOV #OUTBUF ,R1 


;;00 1 ITERATION 

;THIS CODE FINDS OUT IF THE CPU 

31S AN 11/05 OR ELSE. 

[ON AN 11/05, o (177700) CAN BE 

; ADDRESSED AS A MEMORY LOCATION, BUT 
:ON ANY OTHER CPU IF 177700 IS REFERENCED 
;A TIME OUT WILL OCCUR. 
:SET UP TIME OUT VECTOR 
;REFERENCE RO 
;RO WAS REFERENCED W/O TIMEOUT 
;HENCE 11/05 
:3SKIP THIS TEST 

;RESTORE STACK POINTER 

;RESTORE TIMEOUT VECTOR 


:GO, DO CONTROL RESET 

:THIS IS A CALL FOR THE ‘CNTRL- 
RESET’ ROUTINE. A CONTROL RESET IS 
: ISSUED AND AFTER A CERTAIN TIME 
:IF THE 'CNTRL RDY' DOES NOT SET 
:AN ERROR IS REPORTED. NOTE THAT 
*THE PC IN ERROR MESSAGE IS THE 

:PC WHERE ‘'CNT.RESET' IS LOCATED. 
:THIS IS A VERY BASIC ERR& IF IT 
sOCCURS GO BACK TO TEST 10 


a 
; 


SEQ 0103 


MD~-11-CZRKKF, 
RKKF .P11 


CZ 


017416 


017502 


017504 
017512 
017516 
017522 


017526 
017532 
017534 
017536 
017540 
017542 
017544 
017550 
017554 
017556 


017560 
017566 


01.7620 


013704 


104416 
104031 


012777 
010277 
013714 
005077 


012710 
005003 
105710 
100410 
005203 
001374 
004737 
010237 
104416 
104045 


032737 
001015 


104115 


001336 


161670 
000003 


020774 
001202 


177777 
161622 
001144 
161416 


000065 


020774 
001202 


000100 


161350 


001170 
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161700 


161622 


001144 


MACY11 30A(1052) 
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1$: 


2$: 


3$: 


4$: 


:# 


MOV RKBA,R4 
MOV #100,aR1 
MOV #-1 ,aRKwWC 
MOV ll 


BIS #2, 

MOV R2,@RKDA 
MOV R1,@ 

MOV #3,aR0 
CLR R3 

TSTB arkO 

BMI 2$ 

INC R3 

BNE 1$ 


JSR PC,GT4RG 
MOV R2,$REG10 


ERROR 31 
MOV #-1,aRKwWC 


MOV R2,@RKDA 
MOV STKS,@R4 


CLR asTKs 
MOV #65 ,aR0 
CLR R353: 
TSTB akO 

BMI 4$ 

INC R3 

BNE 3 


$ 
JSR PC,GT4RG 
MOV R2,$REG10 


BRKDA4 

ERROR 45 

BIT. #100, $TKS 
BNE TST54 


MOV @$TKS,R5 
MOV R5,$REG1 
BIS #100,R5 
MOV R5,SREGO 
MOV aR4, SREG2 


MOV RO, $REG3 


ERROR 115 


8 
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;WRITE THIS WORD 


sWRITE 1 WORD 
:0N CYL 0, SEC 2 


;FROM THIS MEMORY LOC 
sWRITE, GO 


‘ 


;GET RKCS, ER, DS 

;GET THE STARTING ADRES 

;BREAK IT INTO DRV #, CYL, SUR, SEC # 
;CNTRL RDY DID NOT SET AFTER 

;WRITE OF i ON CYL 0, SEC 2 


:FROM SEC 2, CYL 0 
; INTO TTY STAUS REGISTER 
:CLEAR TTY KEY BRD STATUS REG 


;READ, MEX BITS SET 


:GET THE STARTING ADRES 

;BREAK IT INTO DR#, CYL, SUR, SEC# 
;CNTRL RDY DIDN'T SET AFTER 

;READ OF 1 WORD FROM CYL 0, SEC 2. 

:IN EROR MSGE, <DSK-ADRES> GIVES 

sADRES WHERE READ BEGAN. 'RKDA' 

:GIVES CONTENTS OF RKDA AT TIME OF EROR 
;WAS THE CORRECT WORD READ INTO 

>THE TTY STATUS REGISTER? 


:3: YES, EXIT 
:GET THE WORD RECVD FROM DISK 


THIS WORD WAS EXPCTD 
:STORE EXPCTD WORD 

:GET RKBA 

GET RKCS 

:DATA ERROR. A ONE WORD (100) 
:NPR WAS TRIED FROM DISK TO 

: TTY KEYBOARD STATUS REGISTER 
:(17756) . BIT 6 SHOULD HAVE BEEN 
: SET AS RESULT OF THIS 

:BUT IT WAS NOT 


FREER AAA AAR TARTAR EATER ATA TATA AEA AAR AAAA AAA RARER ER EEE 


TEST 54 


CHECK THAT RKBA CAN COUNT CORRECTLY 





SEQ 0104 


MD-11-CZRKKF, 
CZRKKF .P11 


017622 
017624 
017632 
017634 
017636 


017642 


017650 


017702 
017710 


017712 


017714 
017720 


017722 
017724 
017726 


017732 
017736 


017740 
017744 


017756 
017760 


000004 
012737 
104421 
005001 
012702 


012737 


013705 


104412 
104065 


005237 
001417 


020215 
001410 
010137 


011537 
104017 


005237 


001336 
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000065 


000002 
017654 


001336 
021436 


177777 


001350 
000067 


001356 


001162 
001164 


001360 


000002 


TEST 2 


001206 


001110 


161442 


161436 
161422 
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TST54: 


1$: 


38: 


4$: 


5$: 


;*THIS TEST CHECKS THAT RKBA CAN COUNT CORRECTLY. 
:*TO THE DESIRED INITIAL VALUE. 
>*1S TRIED, WITH MEX (MEMORY EXTENSION) BITS SET. 
>*NO MEMORY PRESENT (FOR CERTAIN BUS ADDRESSES), 


B 9 
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CHECK THAT RKBA CAN COUNT CORRECTLY 


It IS SET 
THEN A ONE WORD WRITE CHECK 
IF THERE IS 
THERE 


;*WILL BE AN NXM ERROR STOPPING CONTROLLER ACTION. BUT RKBA 


>*SHOULD HAVE INCREMENTED BY 1 FROM ITS INITIAL VALUE. 


IF IT 


;*HAS NOT, AN ERROR IS REPORTED. 


seeeeeeeeeeeeeeeeeeeeeeeeeeeeeteeeeeeeeteteneneeenteeeeeneneneee 


SCOPE 

MOV #5, STIMES 
TST.SIN 

CLR R1 

MOV #2,R2 

MOV #1$,SLPERR 
MOV RKBA,R5 
JSR PC, TSTRWS 
ERROR 16 
CNT.RESET 

MOV #-1,aR 
MOV R1 »aR5 
MOV DRIVAD, @RKDA 
MOV #67, aRKCS 
CHKCRDY 

ERROR 65 

INC INDX1 

BEQ 5$ 

CMP R2,aR5 
BEQ 4$ 

MOV R1,$REGO 
MOV @R5,SREG1 
ERROR 17 

INC INDX2 
BEQ 5$ 

ADD R2,R1 

MOV R1,R2 

ADD #2,R2 

BNE 1$ 


;;00 5 ITERATIONS 
sCHECK IF SIN SET, 
s INITIALIZE (VALUE OF RKBA) 


IF SET ORV RESET 
> INITIALIZE CINCMNTD VALUE OF RKBA) 
;SET RETURN ADRES FOR LUPING 

N EROR 


sWAIT FOR R/W/S RDY 
;R/W/S RDY IS NOT SET 
:D0 CONTROL RESET 
;WRITE CHK 1 WORD 


KWC 
; THIS BUS ADRES 


:SET DISK ADRES 
sWRITE CHECK, GO, MEX BITS SET 

:GO CHECK IF CONTROL RDY IS SET 

: IF SO, SKIP THE EROR MESSAGE. 
;CNTRL RDY DID NOT SET AFTER 

sWRT CHK WAS TRIED TO NXM LOC 

:U MIGHT WANT TO USE oo 
sCHECKING MEX BITS & NXM 

:ALLOW ONLY 5 ERRORS OF ABOVE KIND 


:D1D0 RKBA INCREMENT BY 1 FROM 
sI1TS INITIAL VALUE? 
YES, BRANCH 
;GET EXPCTD RKBA 
;GET RKBA RECVD 
;RKBA DID NOT INCREMENT BY 
:1 FROM ITS INITIAL VALUE. 
:ONE WORD WRT CHK WAS TRIED 
:TO A NXM LOCATION. THERE 
;WILL BE AN NXM ERROR, 
;BUT STILL RKBA SHOULD 

; INCREMENT BY 1 FROM ITS 

> INITIAL VALUE. 

:ALLOW ONLY 5 ERRORS OF 

; THE ABOVE KIND 

:SET NXT VALUE OF RKBA 


;SET EXPCTD VALUE OF RKBA 
;ALL DONE? 


;DUMMY EXIT POINT 


SEQ 0105 


MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2 
CZRKKF .P11 


017760 


020002 
020004 


020004 
020006 
620014 


020020 
020024 
020026 
020034 
020036 
020044 


020050 


020054 


21-FEB-78 0 


000004 
012737 
005737 
001403 
004537 
104120 


000004 
012737 
005237 


004737 
104026 
023737 
001405 
062737 
000137 


005037 


000004 


000001 
001464 


025160 


000001 
001352 


021504 
001412 
020000 
005040 
001112 


001206 


001206 


001352 


001350 





Cc 9 
MACY11 30A(1052) 21-FEB-78 08:58 PAGE 107 


154 


:*TEST 55 


CHECK THAT RKBA CAN COUNT CORRECTLY 


SS RAAAAARAAAAA TAA AAR AKAAAAAAARAAETAAAHAEAAEAAAAAAAERAEAEEE EEE EE 


CHECK FOR RK-O5F 

s*THIS TEST CHECKS RK-O5F TYPE DRIVES 

:*TO INSURE THAT IF SEEKS ARE ISSUED ON ONE 
;*DRIVE, THE OTHER DRIVE BECOMES BUSY 


FPR AAAA AAA AAAAERAAA TAKARA ATER HARERHETEEEREHEKREEAERE he 


TST5S: 


1$: 


SCOPE 

MOV #1,STIMES ;;D0 1 ITERATION 

TST FFLAG ;SEE IF RK-O5F 

BEQ 1$ :NOT F 

JSR R5,FCHECK :SEE IF OTHER GOES BUSY 
ERROR 120 


SPU RAAARAARER AAA AAA AEA ERE RATER AEA AERA ERAEAEAEEES 


:*TEST 56 


END OF PROGRAM 

:*THIS IS NOT A TEST, BUT A LINKAGE PROVIDED TO PERFORM 
>*THE ABOVE SUB-TESTS FOR ALL DRIVES THAT ARE PRESENT. 
s*NOTE THAT THE NEXT TEST- HARDWARE POLLING LOGIC- 

>*1S DONE USING ALL THE DRIVES THAT ARE INDICATED PRESENT. 
>*DO NOT LOOP ON THIS ‘TEST’. 


'WRABRBRBRBAALAAAAAASLAAARERAALARAARAARARARELESALASLESE SES ESE SELES ESAS SS 


TST56: 


BTECP: 


1$: 


SCOPE 

MOV #1, STIMES 

INC DRVDON 

JSR PC ,DRESET 
26 


E 
CMP DRIVS ,DRVDON 


:;D0 1 ITERATION 

; INCREMENT THE COUNT FOR THE NUMBER 
;OF DRIVES THAT ARE CHECKED 

sRESET THE DRIVE 

;R/W/S DIDN'T SET AFTER DRIVE RESET 
sHAVE U TESTED ALL THE DRIVES 

>THAT ARE PRESENT? 


BEQ 1$ IF YES, EXIT 
ADD #20000,DRIVAD ;ADRES THE NXT POSSIBLE DRIVE 
JMP NUDRV :GO BACK AND TEST THE NEXT 


;DRIVE PRESENT 
CLR SERTTL 


SF AAAAAAAAAA AKA ALAS HARE SALSA RATATAT AAA AA ARERATAEAEAAAEKAEAAAKRAEAKEE 


s*TEST $7 


CHECK HARDWARE POLLING LOGIC 

>*THIS TEST CHECKS THE HARDWARE POLL LOGIC, USING ALL THE DRIVES 
;*PRESENT ON THE RK11. ATLEAST TWO DRIVES SHOULD BE PRESENT 
7*T0 DO A MEANINGFUL HARDWARE POLL. SEQUENCE OF OPERATIONS IS 
:*AS FOLLOWING: 

;*1) NUMBER OF DRIVES ON THE RK11 IS ASCERTAINED. 


:*2) HAVING LOCKED OUT ALL INTERRUPTS (CPU PR 7), SEEK IS INITIATED 


;*FOR ONE DRIVE AT A TIME, ONLY WHEN ‘"CNTRL RDY* IS SET. 


;*3) CPU PRIORITY IS DROPPED TO 4 SO THAT RK11 CAN INTERRUPT, THE INCOMING 


stINTERRUPT IS PROCESSED TO CHECK IF IT WAS DUE TO ‘SEEK DONE’ 8Y 
;*ONE OF THE DRIVES. 

>*4) IF BY THE END OF THE SET TIME A DRIVE HAS NOT INTERRUPTED 
;tAN ERROR MESSAGE IS GIVEN INDICATING WHICH DRIVE DID NOT 
s*INTERRUPT AFTER SEEK WAS DONE. 


FFARR A EEA EAE AA AAA AAAA AAA EAA AAAAARATAEEARAEE 


TST57: 


SCOPE 


SEQ 0106 


MD-11-CZRKKF, 


CZRKKF 


-P11 


020056 
0 


020162 


020166 


020172 


020174 


020250 


012737 


005037 


005037 


104413 


005737 


012705 


012746 
012746 
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000005 001206 
001440 


025304 
001436 
001414 


001436 


001433 


001406 
001412 


020652 


001356 


001360 


001356 


000200 
001414 
17777C 
033342 


177770 
033342 


100340 
020256 
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25$: 
233: 


22$: 


T56: 


20$: 


15$: 


1$: 


MOV #5. STIMES 
INC SIZYET 

BNE $ 

JSR PC,SIZEF 
CLR PHYDRV 

MOV #DRIVO,RO 
TST 0) 

BEQ 22% 

INC PHYDRV 

TST (RO) 

BPL 22$ 

TST (RO) + 

TST 

CMP RO, #DRIV7+1 
BLT 23$ 

CLR ODDEVN 

TST DRIVS 

BNE 20$ 

JMP SEOP 

INC T56FLG 

MOV RKCS,RO 
CLR INDX1 

CLR INDX2 
CNT.RESET 

TST INDX1 

BNE . +6 

CLR R2 

BR . +6 

MOV #200,R2 
MOV #DRIVO,R1 
MOV #-10, Rz 
MOV #OUTBUF , R5 
CLR (R5)+ 

INC R3 

BNE 74 

MOV #-10,R3 
MOV #OUTBUF ,R5 
MOV #340,-(SP) 
MOV #64$,-(SP) 


dD 9 
21-FEB-78 08:58 PAGE 108 
CHECK HARDWARE POLLING LOGIC 


3:00 5 ITERATIONS 
;FOUNR RKOSF YET? 


: YES 
;FIND WHICH ARE RK-O5F 
;NUMBER OF ACTUAL DRIVES 


; TABLE 

;ORIVE HERE+? 
NO 

: COUNT DRIVE 
> RKOSF? 


:NO 
;DONT COUNT F TWICE 


(RO)+  ;NEXT DRIVE 


sALL YET 


;NO 
;EVEN DRIVES FIRST IF F 
a DRIVES PRESENT? 


NO 


sFLAG TO INDICATE: 


; (INDX1)=0 POLLING DONE AFTER ALL 
;DRIVES SEEK TO CYL 0 
; (INDX1)=1 POLLING DONE AFTER ALL 
;DRIVES SEEK TO CYL 4 
;FLAG INDICATING TYPE OF INTERRUPT 
:SET TO NON-ZERO TO INDICATE 


: THAT THE INTERRUPT IS DUE TO 
:SEEK DONE 

:G0, DO CONTROL RESET 

sTHIS IS A CALL FOR THE ‘CNTRL- 
sRESET* ROUTINE. A CONTROL RESET IS 
: ISSUED AND AFTER A CERTAIN TIME 


IF THE ‘CNTRL RDY" DOES NOT SET 
;AN ERROR IS REPORTED. NOTE THAT 


:THE PC IN ERROR MESSAGE IS THE 


:PC WHERE "CNT.RESET’® IS LOCATED. 
:THIS IS A VERY BASIC ERR& IF IT 
sOCCURS GO BACK TO TEST 10 
sPERFORMING SEEKS TO CYL 4 

og BRANCH 


;SET ADRES FOR a CYLINDER 


; DRIVES 
; INITIALIZE POINTER TO INDICATOR AREA 
:CLEAR OUT THE 8-WORD INDICATOR 

;AREA WHICH IS USED FOR DOING 

; SOFTWARE POLLING LATER ON 

;SET COUNT FOR 8 POSSIBLE DRIVES 

> INITIALIZE POINTER TO INDICATOR AREA 


SEQ 9107 


MD~11-CZRKKF, 
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21-FEB-78 0 SEQ 0108 


5902 020254 000002 RTI 

5903 020256 64$: 

5904 020256 032711 000001 BIT #BiTO,(R1) 71S THIS DRIVE PRESENT? 

5905 020262 001433 BEQ 4$ :1f NOT, BRANCH 

5 020264 065711 TST (R1) = RKO6F? 

5907 020266 100 BPL 178 ;NO, CONTINUE 

5908 020270 9032702 020000 BIT #B1T13,R2 ; DRIVE EVEN? 

5909 020274 001404 BEQ 16$ YES 

5910 020276 005737 001406 TST ODDEVN D0 WE WANT ODD? 

5911 020302 001423 BEQ 4$ :NO, SO DO NOT TEST 

5912 020304 000403 BR 17$ : ADD THIS DRIVE TO LIST 

59135 020306 005737 001406 168: TST ODDEVN :D0 WE WANT EVEN? 

5914 020312 001017 BNE 4$ :NO, SO SKIP 

5915 020314 010215 17$: MOV R2,(R5) ;SET UP THIS WORD IN THE 

5916 ; INDICATOR AREA SHOWING THAT THIS 
5917 sDRIVE (AS IN BITS 13-15 OF R2) 
5918 :1S PRESENT 

5919 020316 042725 017777 BIC #17777, (R5)+ sMASK OUT UNWANTED BITS (CYL,SUR.SEC BITS) 
5920 020322 005004 CLR R4 

5921 020324 105710 2$: TSTB aro 31S CNTRL RDY SET? 

5922 020326 100405 BMI 38 7 YES, BRANCH 

5923 020330 005204 INC RG zNO, WAIT FOR IT 

5924 020332 001374 BNE 2$ : IF WAITED LONG REPORT ERROR 

5925 020334 004737 020774 JSR PC, GT4&RG 3G0, GET RKCS.ER,DS,DA 

5926 020340 104021 ERROR 21 > CNTRL RDY DID NOT SET AFTER ACCEPTING 
5927 s ADRES FROM PREVIOUS SEEK 

§928 020342 010277 160772 3$: MOV R2,@RKDA : ADRES THIS DRIVE, CYL O OR CYL 4 
5929 ; (WHICHEVER THE CASE MAY BE) 

5930 020346 012710 000111 MOV #111,aR0 ;SEEK,GO,IDE SET 

5931 020352 005721 4$: TST (R1)+¢+ sNEXT DRIVE DATA 

5932 020354 062702 020000 ADD #20000,R2 s INCREMENT DRIVE ADRES (BITS 15,14,13) 
5933 020360 005203 INC R3 ;TO NEXT ONE 

5934 020362 001330 BNE 1$ :BRANCH BACK IF ALL DRIVES ARE 
5935 ;NOT CHECKED TO SEE IF THE NEXT 
5936 sDRIVE IS PRESENT (8 IF SO ISSUE A 
5937 :SEEK TO IT) 

5938 sBY NOW SEEKS HAVE BEEN ISSUED 
5939 :T0 ALL DRIVES PRESENT & POLLING 
5940 ;HAS BEGUN 

5941 020364 005004 CLR R4 

5942 020366 013702 001402 5$: MOV RKVEC,R2 

5943 020372 012722 020424 MOV #63, (R2)+ :SET ADRES FOR RK11 TO INTERUPT 
5944 020376 012712 000340 MOV #340, (R2) :SET PSW ON INTERUPT 

5945 020402 013746 001400 MOV RKPRI, - (SP) ;DROP CPU PRIORITY TO 4 SO THAT 
5946 020406 012746 020414 MOV #18$, =(SP) >RK11 CAN INTERUPT 

5947 020412 000002 RTI 

5948 020414 000240 18$: NOP : THIS IS A TIME LOOP DURING 

5949 020416 005204 INC RG sWHICH ALL DRIVES PRESENT SHOULD 
5950 020420 001375 BNE 18$ : INTERRUPT 

5951 020422 000452 BR 11$ sBRANCH AND CHECK IF ALL AVAILABLE 
5952 sDRIVES INTERRUPTED CORRECTLY 

5953 020424 022626 6$: CMP (SP)+,(SP)+ sRESTORE STACK POINTER 

5954 020426 005737 001360 TST INDX2 sWAS THIS FIRST INTERRUP 

5955 :DUE TO ‘ADRES ACK’ AFTER INITIATION 
5956 :OF SEEK? 

5957 020432 001021 BNE 9$ “IF YES, CHECK THE FOLLOWING 
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020434 
020440 
020442 
020446 


020450 


020466 


020470 


020474 


020476 
020502 
020506 
020512 


020516 
020520 
020522 
020524 


020526 
020530 
020534 


020540 


020542 
020544 


020546 
020550 
020554 


032710 


104076 


017701 
032701 
001403 
010137 
104050 


005237 


000734 


013703 
012705 
017701 
042701 


020125 
001411 
005303 
001374 


010146 
004737 
012637 


104051 


000401 
005245 


000707 
013703 
012705 
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020000 
001162 


160652 
160000 


001162 


001360 


001436 
035342 
160614 
017777 


021200 
001162 


001436 
033342 
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7$: 


9$: 


10$: 


11$: 


INC 


MOV 
MOV 
MOV 
BIC 


CMP 
BEQ 
DEC 
BNE 


MOV 
JSR 
MOV 


ERROR 


BR 
INC 


BR 
MOV 
MOV 


a 
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een ee 
@RO,$REGO 
76 


@RKDS,R1 
#160000,R1 


8$ 
R1,$REGO 
50 


INDX2 


5$ 


PHYDRV,RS3 
#OUTBUF ,R5 
@RKDS,R1 
#17777,R1 


R1,(R5)+ 
10$ 


R3 
~76 


R1,~(R6) 
PC ,SHFTRT 
(R6)+,$REGO 


51 


10$+2 
-(R5) 


5$ 
PHYDRV,R3 
#OUTBUF ,R5 


SEQ 0109 


;CHECK THAT SCP IS NOT SET 

;BRANCH IF SCP CLEAR 

;GET RKCS 

;AFTER THE FIRST INTERRUPT WHICH 
;1S DUE TO INITIATION OF SEEK, SCP 
;SHOULD NOT HAVE SET. 


;RKDS BITS 15-15 SHLOULD BE CLR 


:GET RKDS 
sSEEK, WITH IDE SET WAS ISSUED TO 
;ALL AVAILABLE DRIVES. THE FIRST 

; INTERUPT IS DUE TO SEEK INITIATED 
;BY FRST DRV. DRV ID BITS 13-15 
;SHOULD BE CLR AFTR THIS FRST INRUPT. 
; THEY WERE WOT IF THIS ERROR OCCURS. 
;SET UP FLAG INDICATING 

: THAT THE FIRST INTERRUPT DUE 

:TO INITIATION OF SEEK WAS 

; PROCESSED 

;GO BACK TO THE WAIT LOOP & WAIT 

:FOR NEXT INTERRUPT FROM RK11 

:;SET COUNT OF # OF DRIVES PRESENT 

> INITIALIZE POINTES 

:;GET RKDS 

:MASK BITS 0-12 

>THE FOLLOWING CODE IS A SOFTWARE 
;POLL WHICH FINDS OUT WHICH DRIVE 
;CAUSED THE PRESENT INTERRUPT 

;AND SETS UP A FLAG BIT FOR 

; THE DRIVE #, 
sTHIS DRIVE # 


BRANCH IF INTERRUPTING DRIVE WAS FOUND 

:HAVE U CHKD ALL DRIVS PRESENT? 

:1f NOT LUP BAK & CHK 

:REPORT ERROR IF THE INTERRUPTING 

DRIVE # (AS IN RKDS 13-15) WAS NOT 

ANY ONE OF THOSE THAT ARE PRESENT 

:GET WORD TO 8 SHFTD RT 

:GO SHIFT IT 

:THIS DRIVE # WAS RECVD IN RKDS AS 
| 


IT DID 


INDICATING THAT 
INTERRUPTED 


;THE INTERRUPTING DRIVE, BUT THIS 
;DRIVE IS NOT PHYSICALY PRESENT 
;RKDS INDICATES AN INTERRUPTING 
:DRIVE # (DURING H'WARE POLL) BUT 
;THAT DRIVE IS ACTUALLY NOT PRESENT 


;SET UP FLAG INDICATING THAT 

;THE INTERRUPT FOR THIS DRIVE 

; (AFTER IT HAD COMPLETED ITS SEEK) 
;WAS PROCESSED 

;GO BAK & WAIT FOR FURTHER INTRUPTS 
;GET # OF DRIVES 

; INITIALIZE POINTER 
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020560 
020562 
020564 
020566 
020572 


020576 


020600 
020604 
020606 


020610 
020614 
020616 
020622 


020626 
020632 


020646 


105715 
001006 
011546 
004737 
012657 


104052 


062705 
005303 
001364 


005737 
001004 
005237 
000137 


005237 
022737 


005037 
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021200 
001162 


000062 


001356 


001356 
020166 


001406 
000002 


020140 
001434 
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14$: 


15$: 


TSTEND: 


21$: 


G 9 
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CHECK HARDWARE POLLING LOGIC 


TSTB 
BNE 


(R5) :DIO THIS DRIVE INTERRUPT? 
13$ YES, BRANCH 
(R5) ,-(R6) ;GET THIS DRIVE # 
PC, SHFTRT ;SHIFT IT TO THE RIGHT 
(R6)+,$REGO ;THIS DRIVE # DID NOT INTERRUPT 
;DURING H‘WARE POLL 
32 ;DRIVE # (AS IN $REGO) DID NOT 
; INTERRUPT DURING HARDWARE POLL 
#2,R5 ; INCREMENT POINTER TO THE NEXT FLAG 
R3 ;CHKD FOR ALL DRIVES? 
14% ;1F NOT LUP BACK 
INDX1 ;DONE POLLING FOR SEEKS TO CYL 312? 
TSTEND ;IF YES, EXIT 
INDX1 ;iF NOT, INCREMENT FLAG 
15$ :GO DO IT 
: INDICATOR TABLE 
;THE 8-WORD INDICATOR TABLE USED IN 
; THE FORMER PART OF THIS SUB-TEST 
;1S LOCATED STARTING AT ‘OUTBUF’. 
sWORDS ARE SET UP TO INDICATE 
;PRESENCE OF A DRIVE EG: IF 
sDRIVES 0,1,2 ARE PRESENT, IT WILL 
;LOOK LIKE 
; OUTBUF : 000000 BITS 13,14,15 
; 020000 CONTAIN THE 
‘ 040000 DRIVE NO. 
000000 REST O'S 
:WHEN A DRIVE INTERRUPTS AFTER SEEK 
:1S DONE BIT 0 OF THE CORRESPONDING 
; INDICATOR WORD IS SET. THUS FOR THE 
;ABOVE EXAMPLE IF ALL DRIVES INTERRUPTED 
;CORRECTLY THEN IT WILL LOOK LIKE: 
; 128: 000001 BIT 0 SET 
; 020001 TO INDICATE 
; 040001 DR INTERRUPTED 
: 000000 REST O'S 
ODDEVN :NOW ODD IF RKOSF 
#2,0DDEVN ;SEE IF DONE 
21% ;ALL DONE 
T56 ; TEST AGAIN 
T56FLG 


-SBTTL END OF PASS ROUTINE 


ERRATA ERRATA ATER EEE TE ERATE RATATAT RARER 
;*INCREMENT THE PASS NUMBER ($PASS) 

;* INDICATE END-OF -PROGRAM AFTER 1 PASSES THRU THE PROGRAM 

StTYPE “‘END PASS #XXXXX"" (WHERE XXXXX IS A DECIMAL NUMBER) 

;*IF THERES A MONITOR GO TO IT 

;*IF THERE ISN'T JUMP TO ST4 


 - ae 


SEQ 0110 


MD-11-CZRKKF, 
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020652 
020652 


020772 


000004 


000240 
000137 
004456 


050040 
000043 


001102 
001206 
001100 
100000 


020757 
001100 


020754 
000042 


377 
042412 
051501 
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001100 


000 
042116 


020123 


MACY1; 
END OF 


SEOP: 


SEOPCT: 


SENDCT: 


SGET42: 


SENDAD: 


SDOAGN: 


SRINAD: 
SENULL: . 
SENDMG: . 


; CALL: 


:GT3RG 


30A(1052) 
PASS ROUTINE 


H 9 
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STSTNM 
STIMES 
SPA 


= 
SDOAGN 


_—_ 
. SENDMG 
SPASS,-(SP) 


. SENULL 
a#42,R0 


$SDOAGN 


PC, (RO) 


a(PC)+ 
gl 


.0 
cehaclsavene PASS #/ 


-SBTTL GT2RG: 


s SUBROUTINE FOR TRANSFERRING THE CONTENTS OF RKCS, RKER 
;TO SREGO, SREG1 RESPECTIVELY BEFORE TYPING OUT AN ERROR MESSAGE. 


JSR 


PC,GT2RG 


-SBTTL GT5RG: 


S$ 
#100000, $PASS 


ae 
58 PAGE 112 
SEQ 0117 


7;:;ZERO THE TEST NUMBER 

3;ZERO THE NUMBER OF ITERATIONS 
>: INCREMENT THE PASS NUMBER 
3;:;DON'T ALLOW A NEG. NUMBER 
;;LOOP? 


s TES 
> RESTORE COUNTER 


7; TYPE “END PASS #°' 

7: SAVE SPASS FOR TYPEOUT 

3:GO TYPE=-DECIMAL ASCII WITH SIGN 
7: TYPE A NULL CHARACTER 

;;GET MONITOR ADDRESS 

:;BRANCH IF NO MONITOR 

:;CLEAR THE WORLD 

::GO0 TO MONITOR 

;; SAVE ROOM 


::FOR 

>: ACT11 

;; RETURN 

;;NULL CHARACTER STRING 


ROUTINE FOR GETTING RKCS,RKER 


ROUTINE FOR GETTING RKCS, RKER, RKDS 


; SUBROUTINE FOR TRANSFERRING THE CONTENTS OF RKCS, RKER, RKDS 


:TO S$REGO, SREG1, 
;ERROR MESSAGE. 


3; CALL: 


;GT4RG 


JSR 


-SBTTL GT4RG: 


SREG2 RESPECTIVELY BEFORE TYPING OUT AN 
PC,GT3RG 
ROUTINE FOR GETTING RKCS, RKER, RKDS, RADA 


; SUBROUTINE FOR TRANSFERRING CONTENTS OF RKCS, RKER, RKDS 
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020774 
021002 
021010 
021016 
021024 


021026 
021026 
021032 


021050 


021054 


017737 
017737 
017737 
017737 
000207 


104401 
000406 


010346 
104402 
000207 


6 
6180 021056 010046 


6181 


021060 012700 001172 
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160340 
160320 
160314 
160310 


021034 


TEST 2 


001170 
001166 
001164 
001162 


*, 
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ROUTINE FOR GETTING RKCS, RKER, RKDS, RKDA 


sRKDA TO SREGO, SREG1, SREG2, SREGS RESPECTIVELY BEFORE 
; TYPING OUT AN ERROR MESSAGE. 


GT4RG: 


; CALL: 


GT4RG: 
GT3RG: 
GT2RG: 


; TYERM 


JSR 


. SBTTL 


PC,GT4RG 

@RKDA, SREGS :GET RKDA 
@RKDS ,SREG2 :GET RKDS 
@RKER,SREG1 ;GET RKER 
A@RKCS, SREGO 

PC 

TYERM: SPECIAL ERROR MESSAGE ROUTINE 


;THIS ROUTINE TYPES OUT ‘EROR AT PC=X' 
:X IS THE PC WHERE THE EXPLANATION AS TO WHAT HAPPENED IS GIVEN. THIS ROUTINE 
:1S USED ONLY FOR NON-MANUAL MODE OF THE PROGRAM. 


: CALL: 
TYERM: 


: 3658: 
64$: 


TYPE 
BR 
-ASCIZ 
MOV 


TYPOC 
RTS 


. SBTTL 


:BDAO, BDA4 


;THIS ROUTINE BREAKS A DISK ADDRESS (BITS 0-15) INTO DRIVE #, 
sCYLINDER #, SURFACE, SECTOR #. THE ROUTINE IS CALLED BY USING EITHER 
;BRKDAO OR BRKDA4, BOTH BEING ‘'TRAP*® INSTRUCTIOS WITH THEIR LOWER BYTES 
sENCODED TO PROVIDE INDEXING TO 'BDAO* OR ‘BDA4*. BEFORE CALLING 

;THE ROUTINE THE DISK ADDRESS WHICH IS TO BE BROKEN AS ABOVE 

:1S DEPOSITED IN $REG10. 


; "BRKDAO* PUTS THE 
;DRIVE # INTO $REGO 
;CYLINDER # INTO $REG1 
;SURFACE # INTO $REG2 
SECTOR # INTO $REG3 
BRKDAO 


7 CALL: 


BDAO: 


MOV 
MOV 


JSR TYERA 

65% :: TYPE ASCIZ STRING 

64$ ::GET OVER THE ASCIZ 

<15><12>/EROR,PC=/ 

R3,-(SP) 

PC 

BDAO, BOA4: BREAK DISK ADDRESS INTO SEC, SUR, CYL, DRIVE 


BRKDA4 PUTS THE 

DRIVE # INTO SREG4 
CYLINDER # INTO $REG5 
SURFACE # INTO SREG6 
SECTOR # INTO $REG7 
BRKDA4 


;PUSH RO ONTO THE STACK 
:SET UP POINTER 


RO,-(SP) 
#SREG5+2,R0 


SEQ Qli2 
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021064 


021066 
021070 


021074 
021102 


021104 
021106 
021110 


021114 
021120 
021122 
021126 
021130 
021132 
021134 
021136 


021166 


021170 
021172 
021174 
021176 


021200 


021222 
021224 


000403 


010046 
012700 


032777 
001034 


010146 
010246 
013701 


042701 
010140 


010140 


012602 
012601 
012600 
000002 


012737 
000241 
006066 
005237 
001373 
000207 
000000 


21-FEB-78 08:51 


001202 
020000 


001202 
177760 
001202 


177776 


177400 


177770 


177762 


000002 
021224 


160036 


021224 
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BDAO, BDA4: 
BR 
BDA4: 


BDAR: 


2$: MOV 


BREAK DISK ADDRESS INTO SEC, SUR, CYL, DRIVE SEQ 0113 
BDAR 
RO,-(SP) ;PUSH RO ONTO THE STACK 
#SREG7+2,R0 ;SET UP POINTER 
#20000 ,aSWR ; INHIBIT TYPEOUT? 
2$ ;YES, BRANCH TO EXIT POINT 
R1,-(SP) ;PUSH R1 ON STACK 
R2,-(SP) ;PUSH R2 ON STACK 
SREG10,R1 ;GET THE ADDRESS WHICH 
;HAS TO BE BROKEN 
#177760,R1 sEXTRACT SECTOR BITS 0-3 
R1,-(RO) :MOVE SECTOR BITS TO $REG3 OR $REG7 
SREG10,R1 ;GET THE DSK-ADRES TO BE BROKEN 
4 ;SHIFT RIGHT 4 TIMES 
R1 
R1 
R1,Re ;STORE THIS 
#177776,R2 sEXTRACCT THE SURFACE BIT 
eats ;MOVE SURFACE BIT TO $REG3 OR SRE@6 
R1,R2 ;STORE IT 
#177400,R2 sEXTRACT THE CYLINDER BITS 
R2,~(RO) ;MOVE CYLINDER BITS TO $REG1 OR $REG5 
R1 : SWAB HI-LO BYTES 
#177770,R1 sEXTRACT THE DRIVE # 
R1,-(RO) ;MOVE DRIVE # TO $SREGO OR SREG4 
(SP)+,R2 RESTORE R2 
(SP)+,R1 ;RESTORE R1 
(SP)+,R0 ;RESTORE RO FROM THE STACK 


;RETURN FROM INTERRUPT, EXIT THIS 
; ROUTINE 


-SBTTL SHFTRT: SHIFT RIGHT ROUTINE 


; SHFTRT 


;THIS ROUTINE SHIFTS A WORD TO THE RIGHT 13 TIMES. THE WORD TO BE SHIFTED 
:I1S PUT ON THE STACK BEFORE ENTERING THIS ROUTINE AND IT IS POPPED UP 


;FROM THE STACK AFTER THE SHIFT 


sCALL: J&R 
SHFTRT: MOV 
CLC 
1$: ROR 
INC 
BNE 
RTS 
2$: 0 


HAS BEEN DONE. 


PC, SHFTRT 
#-15,2% ;SET UP A COUNT OF 13 
;CLEAR THA C BIT 
2(R6) ;ROTATE RIGHT THE WORD TO B SHFTD 
2$ ;SHIFTED 13 TIMES? 
1$ ;1F NOT LUP BAK & SHIFT 
PC sEXIT FROM THIS SUBROUTINE 
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CZRKKF .P11 21-FEB-78 08:51 SHFTRT: SHIFT RIGHT ROUTINE SEQ 0114 
6238 
6239 | 
6240 .SBTTL CHKHWE: CHECK FOR ‘ERR‘OR 
6241 -SBTTL CHKHE1: CHECK FOR ‘ERR‘'OR 
6242 
6243 3; CHKHE 
6244 : THIS ROUTINE CHECKS IF ‘HE* OR "ERR" BITS IN RKCS ARE SET. IF ANY OF THE 
6245 :TWO BITS ARE SET, THE CONTENTS OF RKCS, ER, DS, AND DA ARE SAVED AND A 
6246 sRETURN IS MADE TO THE ERROR MESSAGE FOLLOWING THE ‘JSR’ CALL. 
6247 sAT THE TIME OF ENTRY ‘DRIVAD' CONTAINS THE DISK ADDRESS WHICH IS TO 
6248 :BE BROKEN DOWN INTO DRIVE #, CYLINDER, SURFACE AND SECTOR #. THIS INFORMATION 
6249 :1S SAVED TO BE USED LATER FOR ERROR REPORTING. IF THE BITS ARE NOT SET, 
oes :RETURN IS MADE TO SKIP THE ERROR MESSAGE. 
6252 ; CHKHE1 
6253 :THIS ROUTINE CHECKS IF ‘HE*® OR ‘ERR’ BITS IN RKCS ARE SET. IF ANY OF THE 
6254 :;TWO BITS ARE SET, THE CONTENTS OF RKCS, ER, DS, AND DA ARE SAVED AND A 
6255 sRETURN IS MADE TO THE ERROR MESSAGE FOLLOWING THE ‘JSR’° CALL. 
6256 sAT THE TIME OF ENTRY R1 CONTAINS THE DISK ADDRESS WHICH IS TO BE BROKEN 
6257 sDOWN INTO DRIVE #, CYLINDER, SURFACE AND SECTOR #. THIS INFORMATION IS 
6258 ;SAVED TO BE USED LATER FOR ERROR REPORTING. IF THE BITS ARE NOT SET, 
ro sRETURN IS MADE TO SKIP THE ERROR MESSAGE. 
6261 921226 010137 001202 CHKHE1: MOV R1,$REG10 ;SAVE THE DISK ADRES 
atte 021232 000403 BR CHE1 
6264 021234 013737 001350 001202 CHKHE: MOV DRIV/D,SREG1IO ;SAVE THE DISK ADRES 
6265 021242 032777 140000 160062 CHE1: BIT #140000,aRKCS :1S "HE’ OR ‘ERR’ BIT SET? 
6266 021250 001467 BEQ CRETRN NO 
6267 021252 004737 020774 JSR PC ,.GT4RG GET RKCS,ER,DS,. DA 
6268 021256 104416 BRKDA4 :GO0 TO "BDAG' & BREAK CONTENTS 0 
6269 : $REG10 INTO DR#, CYL, SUR, SEC BITS 
ret, 021260 000207 RTS PC sRETURN TO THE ERROR MESSAGE 
6272 
6273 
yy ied -SBTTL CHKDA: CHECK IF RKDA INCREMENTED CORRECTLY 
6276 :CHKDA 
6277 : THIS ROUTINE CHECKS IF RKDA INCREMENTED CORRECTLY. IF RKDA INCREMENTED 
6278 sCORRECTLY RETURN IS MADE TO SKIP THE ERROR MESSAGE. 
6279 :IF RKDA DID NOT INCREMENT CORRECTLY, THE EXPECTED AND RECIEVED VALUES 
ocee Paar ba SAVED AND A RETURN IS MADE TO THE ERROR MESSAGE FOLLOWING THE 
7" JSR* Et. 
6282 021262 013705 001350 CHKDA: MOV DRIVAD,RS :RKDA SHOULD INCREMENT TO THIS 
6283 021266 005205 INC R5 :AFTER DATA TRANSFER IS DONE 
6284 021270 020577 160044 CHKDA1: CMP R5,@RKDA :DID RKDA INCREMENT CORRECTLY? 
6285 021274 001455 BEQ CRETRN :1F YES, BRANCH 
6286 ; IF NOT, REPORT ERROR 
6287 021276 010537 001202 MOV R5,$REG10 :GET EXPCTD RKDA 
6288 021302 104415 BRKDAO :GO TO ‘BOAO’ & BREAK CONTENTS OF 
6289 :$REG10 INTO DR #,CYL,SUR,SEC BITS 
6290 021304 017737 160030 001202 MOV @RKDA,SREG10 sGET ACTUAL RKDA 
6291 021312 104416 BRKDA4G :GO0 TO 'BDA4* & BREAK CONTENTS OF 
6292 :$REG1O INTO DR #,CYL.SUR.SEC BITS 
6293 021314 000207 RTS PC sRETURN TO THE ERROR MESSAGE 








— 
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CZRKKF .P11 21-FEB-78 08:51 CHKDA: CHECK IF RKDA INCREMENTED CORRECTLY SEQ 0115 
6294 
6295 
esas -SBTTL CHKWC: CHECK IF RKWC OVERFLOWED 
6298 > CHKWC 
6299 ;THIS ROUTINE CHECKS IF RKWC OVERFLOWED TO 0. IF IT DID A RETURN IS MADE 
6300 :TO SKIP THE ERROR MESSAGE. IF NOT,THE CONTENTS OF RKWC AND RKDA ARE SAVED 
6301 :AND A RETURN IS MADE TO THE ERROR MESSAGE FOLLOWING THE ‘JSR‘ CALL. 
6302 021316 005777 160012 CHKWC: TST aRKwc :D1D WORD COUNT OVERFLOW TO 0? 
6303 021322 001442 BEQ CRETRN :I1F YES, BRANCH 
6304 :1F NOT, ERROR 
6305 021324 017737 160004 001162 MOV @RKWC ,SREGO :GET RKWC 
6306 021332 017737 160002 001164 MOV @RKDA,S$REG1 sGET RKDA 
ome 021340 000207 RTS PC ;RETURN TO THE ERROR MESSAGE 
6309 
6310 -SBTTL CHKER: CHECK RKER CONTENTS 
6311 : CHKER 
6312 :THIS ROUTINE CHECKS IF ANY BIT IN RKER SET. IF NOT RETURN IS MADE TO SKIP 
6313 THE ERROR MESSAGE. IF ANY BIT IS SET THE CONTENTS OF RKCS, RKER, RKDS ARE 
ps be. :SAVED AND A RETURN IS MADE TO THE ERROR MESSAGE. 
6316 021342 005777 157762 CHKER: TST @RKER :DID ANY BIT IN RKER SET? 
6317 021346 001430 BEQ CRETRN :NO, BRANCH 
6318 ;YES, ERROR 
re 021350 004737 021002 JSR PC, GT3RG :G0, GET RKCS, ER, DS 
ore. 021354 000207 RTS PC ;RETURN TO THE ERROR MESSAGE 
6325 
6324 : CHKECLR 
6325 :THIS ROUTINE CHECKS THAT RKER IS CLEAR. IF NOT, THE CONTENTS OF RKER 
6326 ;ARE SAVED AND A RETURN IS MADE TO THE ERROR MESSAGE FOLLOWING THE ‘’JSR" 
re ;CALL. IF RKER IS CLEAR THE ERROR MESSAGE IS SKIPPED ON RETURN. 
6329 021356 005777 157746 CHKECLR: TST @RKER sANY BIT IN RKER SET? 
6330 021362 001422 BEQ CRETRN NO 
6331 021364 013737 001330 001162 MOV RKER,SREGO :GET ADRES OF RKER 
6332 021372 017737 157732 001164 MOV @RKER, SREG1 ;GET CONTENTS OF RKER 
a 021400 000207 RTS PC :RETURN TO THE ERROR MESSAGE 
6335 
6336 : CHKCCLR 
6337 sTHIS ROUTINE CHECKS THAT RKCS IS CLEAR. IF NOT, THE CONTENTS OF RKCS ARE 
6338 ;SAVED AND A RETURN IS MADE TO THE ERROR MESSAGE. IF RKCS IS CLEAR THE 
6339 sERROR MESSAGE IS SKIPPED ON RETURN. 
6340 021402 022777 O00020C 157722 CHKCCLR: CMP #200,aRKCS s1S RKCS CLEAR? 
6341 021410 001407 BEQ CRETRN ; YES 
6342 021412 013737 001332 001162 MOV RKCS,$REGO :SAVE ADRES OF RKCS 
6343 021420 017737 157706 001164 MOV @RKCS,$REG1 sSAVE THE CONTENT OF RKCS 
rere: 021426 000207 RTS PC sRETURN TO THE ERROR MESSAGE 
6346 021430 062716 000002 CRETRN: ADD #2, (SP) :SKIP ERROR MESSAGE ON 
ert! 021434 000207 RTS PC : RETURN 
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021436 
021444 


021474 
021476 
021502 


021504 
021510 
021516 
021524 


3 


021526 


021550 


013777 


000207 
062716 
000207 


005037 
013777 
012777 
104414 


032777 


005237 
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001350 
001366 
000100 
001366 


157634 


000002 


001364 
001350 
000015 


000100 
177770 


001364 


TEST 2 


157674 
157650 


001162 


157622 
157606 


157572 


MACY11 30A(1052) 
TSTRWS: WAIT FOR R/W/S RDY ROUTINE 


;TSTRWS 
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~-SBTTL TSTRWS: WAIT FOR R/W/S RDY ROUTINE 


:THIS ROUTINE WAITS FOR R/W/S RDY TO SET. WHEN IT SETS, THE RETURN PC 
:1S INCREMENTED SO THAT ON RETURN (TO THE MAIN PROGRAM) THE ERROR 


>MESSAGE FOLLOWING THE 
;THEN A RETURN IS MADE TO THE ERROR MESSAGE (FOLLOWING THE 
1040 MS FOR 11/20, APPROX. 208 MS FOR 11/45 


TSTRWS: 
1$: 


2$: 


:DRESET 


;WAITING TIME IS APPROX. 
LL: TSTRWS 


"JSR' 


JSR 


MOV DRIVAD,@RKDA 
CLR TIMER 

BIT #100,aRKDS 
BNE 2$ 

INC TIMER 

BNE 1$ 

MOV @RKDS ,$REGO 
RTS PC 

ADD #2, (SP) 

RTS PC 


CALL IS SKIPPED. 


IF R/W/S RDY DOES NOT SET 
"JSR* CALL). 


;ADRES THE DRIVE 


; INITIALIZE COUNT 

:DID R/W/S RDY SET? 

: YES, BRANCH 

sWAIT FOR R/W/S RDY 

sERROR IF IT'S NOT SET BY NOW 


;GET RKDS 


sEXIT (TO ERROR FOOLOWING ‘JSR TSTRWS') 


;ADJUST RETURN ADRES TO SKIP OVER 
sERROR (FOLLOWING ‘JSR TSTRWS*) 


EXIT 


-SBTTL DRESET: DRIVE RESET ROUTINE 


sTHIS ROUTINE DOES A DRIVE RESET ON THE DRIVE WHOOSE ADDRESS IS IN 
MULTIPLE RETURN ADDRESSES FOR THIS ROUTINE ARE PROVIDED. 


7RKDA. 


sIF THERE IS NO ERROR (R/W/S RDY SETS WITHIN CERTAIN TIME) , 


THEN BEFORE 


sEXITNG FROM THIS ROUTINE THE RETURN ADDRESS IS INCREMENTED BY 2, TO SKIP 


;THE ERROR MESSAGE ON RETURN. IF THERE IS AN ERROR, THE 3 REGISTERS (CS.ER.,DS) 


;ARE STORED AND THEN A NORMAL EXIT IS MADE FROM THIS ROUTINE TO THE 
sERROR MESSAGE FOLLOWING THE CALL FOR THIS ROUTINE. 


3CALL: 


DRESET: CLR 
MOV 


1$: 


JSR PC ,DRESET 
COUNT1 
DRIVAD ,@RKDA 

MOV #15,aRKCS 

CNT.RDY 

BIT #100, aRKDS 

BNE 2$ 

MOV #-10,-(SP) 

INC (SP) 

BNE .*€ 

TST (SP)+ 

INC COUNT1 


> INITIALIZE THE COUNT 

;ADRES THE DRIVE 

sDRIVE RESET, GO 

;THIS IS A CALL FOR "CN.RDY' 
sROUTINE WHICH WAITS FOR CNT 


;RDY TO SET. 


IF CNTRL RDY DOES 


;NOT SET WITHIN 883 MS/ 11-20 
:(176 MS FOR 11-45 WITH BIPOLAR) 
;AN ERROR IS REPORTED 


a 


:DID R/W/S RDY SET? 


;PUSH COUNT ON SP 
;COUNT IT DOWN 


:POP UP $P 


;1F NOT WAIT 
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021570 


021572 


021630 
021634 


021652 
021652 
021654 
021660 
021662 


021664 
021672 


021676 
021702 


001364 
004737 
000402 
062716 
090207 


013777 


104401 
000406 


011646 
062716 
104402 
000755 


017637 
062716 


005337 
001375 


020774 
000002 


001350 
001000 


021504 


020000 
021636 


177776 


000000 001366 
000002 


001366 
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157540 
157520 


157312 
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DRESET: DRIVE RESET ROUTINE 
BNE 1$ ;WAITED LONG? 
JSR PC,GT4RG 
BR 2$+4 
2$ ADD #2 ,aR6 
RTS PC 


~-SBTTL TSTSIN: CHECK "SIN* ROUTINE 


:TSTSIN 
s;THIS ROUTINE CHECKS IF ‘SIN’ IS SET, IF IT IS SET A 
sDRIVE RESET IS Oey ase CLEAR ‘SIN* AND INITIALIZE POSITIONER. 


; CALL: TST 

:IF ON DOING DRIVE RESET R/W/S RDY DOES NOT SET A MESSAGE 
ERROR PC=XXXXXX IS GIVEN 

" XXXXXX=PC IN THE MAIN PROGRAM WHERE 'TST.SIN*® CALL IS LOCATED. 


TSTSIN: MOV DRIVAD,@RKDA : ADRES THE rive 
BIT #1000,aRKDS: :1S SIN SET? 
BEQ 1$ 
JSR PC,DRESET :GO DO DRIVE RESET, SIN SET 
- 2$ REPORT ERROR 
2$ BIT #SW13,aSWR : INHIBIT TYPEOUT? 
BNE :1F YES, SKIP TYPEOUT 
TYPE ,65$ ::TYPE ASCIZ STRING 
K 64$ ::GET OVER THE ASCIZ 
::65$: .ASCIZ /ERROR PC= / 
64$: 
MOV (SP) ,-(SP) 
ADD #-2, (SP) GET THE PC WHERE 'TST.SIN' IS LOCATED 
TYPOC :GO TYPE OUT PC 
R 1$ 
.SBTTL DELAY: TIME DELAY ROUTINE ; 
:DELAY 


;THIS ROUTINE PROVIDES A VARIABLE TIME DELAY. THE CALL FOR THIS 
:ROUTINE IS AN ENCODED oe whi x 

; CALL: DELAY N IS ANY OCTAL NO. FROM 1 TO 177777 
:THE DELAY PROVIDED IS 7. SN US (CONVERT N TO DECIMAL) FOR 11/20 
31.5N US FOR 11/45 

:IF THE USER WANTS TO CHANGE THE DELAY TIME (EXMP: SHORTER DELAY TO 
:GET A TIGHTER SCOPE LOOP) THE VARIABLE "N* FOLLOWING “DELAY* SHOULD 
;BE CHANGED TO SUIT THE INDIVIDUAL NEED. 


DELA.Y: MOV a(SP), TIMER :GET "AMOUNT' (N) FOR WHICH 
ADD #2, (SP) ;DELAY IS TO BE PROVIDED 
;ADJUST STACK POINTER TO SKIP OVER ‘N° 
1$: +H | in ; COUNT DOWN TO 0 
N 


SEQ 0117 
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021706 
021714 


021720 


021736 


021740 


021742 


021756 


917637 
062716 


013746 
012746 


000002 
005337 
001375 


000002 


005000 
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aoe 021704 000002 


oes 001366 


00000 


001400 
021732 


001366 


MACY11 30A(1052) 
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;WAT.INT 


B 10 
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TIME DELAY ROUTINE 


RTI 


-SBTTL WAT.INT: 


;RETURN TO MAIN PROGRAM 


WAIT FOR INTERRUPT ROUTINE 


;THIS ROUTINE PROVIDES A VARIABLE TIME WAIT LOOP DURING WHICH AN INTERRUPT 
>FROM RK11 CAN OCCUR. THE CALL IS AN ENCODED ‘TRAP’ INSTRUCTION. 


; CALL: 


WAT.INT .N 


N IS ANY OCTAL NO. FROM 1 TO 177777 


;WAIT LOOP TIME= APPROX. 7.5N US (CONVERT N TO DECIMAL) FOR 11/20 
APPROX. 1.5N US FOR 11/45 

;UPON ENTERING THE ROUTINE THE CPU PRIORITY IS DROPPED SO THAT 

:RK11 CAN INTERRUPT. NOTE THAT WHEN RK11 INTERRUPTS THIS ROUTINE 

71S EXITED WITHOUT POPPING THE STACK, THIS POPPING IS DONE AFTER GETTING 
>TO RK11 INTERRUPT HANDLER. 

:1F FOR ANY REASON THE WAIT LOOP TIME HAS TO BE CHANGED IT CAN BE DONE 
:BY SIMPLY CHANGING THE VARIABLE ‘N° FOLLOWING THE ‘WAT.INT’. 


WATINT: 


1§: 


:WATIME 


WATIME: 
1§: 


MOV 
ADD 


~SBTTL CHKCRDY: 


77 CH.CRDY 
7 THIS ROUTINE WAITS FOR THE CONTROL READY TO SET. if THE CONTROL READY BIT 
;DOES NOT SET WITHIN A CERTAIN TIME, THEN THE CONTENTS OF RKCS, RKER, RKDS 
;AND RKDA ARE SAVED AND AN EXIT MADE TO THE ERROR MESSAGE FOLLOWING THE 
;"JSR° CALL FOR THIS ROUTINE. 

71F CONTROL READY SETS THEN THE RETURN ADDRESS IS ADJUSTED TO SKIP THE 
sERROR MESSAGE ON RETURN. 


@(SP), TIMER ;GET ‘AMOUNT’ (N) FOR WHICH 
#2, (SP) ;WAITING IS TO BE DONE 
sADJUST STACK POINTER FOR CORRECT RETURN 
RKPRI ,-(SP) ;DROP CPU PRIORITY SG THAT RK11 CAN 
#1$,-(SP) ; INTERRUPT 
+ a sWAIT FOR RK11 TO INTERRUPT 
IF INTERRUPT HAS NOT OCCURED BY NOW 
oS ge AND REPORT ERROR 
RO 
R1 
RO 
1$ 
R1 
1$ 
PC 


CHECK CONTROL READY 


SEQ 0118 
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021760 


022006 
022012 


022014 


022072 


005037 
105777 


062716 
000002 


012777 


000403 


001366 
157342 


001366 
020774 


000002 


00000? 
177500 


001170 
157270 


001170 
020000 


022074 
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157310 
001170 


157060 
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CHKCRDY: CHECK CONTROL READY 

:CALL: CHKCRDY 

; ERROR ;RETURN HERE IF ERROR 

: one sRETURN HERE IF NO ERROR 

CH.CRDY: CLR TIMER 

1$: TSTB a@RKCS sCNTRL RDY SET? 
BA! 2$ ; YES 
INC TIMER 
BNE 1$ NO, WAIT 
JSR PC, GT4RG : SAVE RKCS, ER, DS, DA 
RTI 

2$: ADD #2, (SP) ;ADJUST RETURN ADDRESS TO 
RTI ;SKIP ERROR MESSAGE ON RETURN 


~SBTTL CON.RESET: CONTROL REST ROUTINE 
> CON.RESET 
> THIS ROUTINE ISSUES A CONTROL RESET AND WAITS FOR 
:THE *CNTRL ROY’ FLAG TO SET. WHEN THE FLAG SETS 

AN EXIT IS MADE OUT OF THE ROUTINE. IF ‘CNTRL-RDY' 

:DOES NOT SET WITHIN A CERTAIN TIME AN ERROR MESSAGE 
: CNT ROY DIDN'T SET 

PC=XXXXXX RKCS=VYYVYYVY 

+ ere NOTE THAT XXXXXX IS THE PC WHERE "CNT.RESET® OR "CNT.RDY' 


sCALL: CNT.RESET 


-SBTTL CNT.RDY: WAIT FOR CONTROL READY ROUTINE 
> CN.RDY 

:THIS ROUTINE WAITS FOR THE CONTROL READY BIT TO SET AND WHEN IT 
sSETS EXITS OUT. IF WITHIN A CERTAIN TIME CNTRL RDY DOES 

sNOT SET AN ERROR IS REPORTED. WAITING TIME IS 883 MS FOR 11/20 
:;175 MS FOR oe WITH BIPOLAR MEMORY. 


“CALL: CNT. 
CN.RST: MOV RKCS ; ISSUE A CONTROL RESET 
MOV *~400° SREG3 ;SET UP COUNT 
BR CN. RDY+4 sSKIP OVER CN.RDY 
CN.RDY: CLR SREG3S 
1$: TSTB @RKCS :DID CNTRL=-RDY SET? 
BAI 3$ sVES, EXIT 
INC SREGS sWAITED LONG? 
BNE 1$ IF NOT. GO BAK & WAIT 
2$: BIT #SW13,aSWR : INHIBIT TYPEOUT? 
BNE 3$ IF YES, SKIP TYPEOUT 
TYPE 
MSG3 
TYPE ,65$ si: TYPE ASCIZ STRING 


BR 64$ ;;GET OVER THE ASCIZ 


3765$: <15><12>/PC=/ 


SEQ 0119 


MD-11-CZRKKF, 


CZRKKF 


-P11 


022102 


022110 


022112 
022116 


022130 
022130 
022134 


022136 


022140 


022150 
022152 
022154 


022230 


011646 
162716 
104402 


104401 
000404 
017746 
104402 


000002 


104407 
032/77 
001111 


000416 
013746 


000423 


032777 
001404 
127737 
001462 
105737 


000002 


022120 


157176 


040000 


000004 
022200 
177060 
000004 


000004 


000400 
156714 
001103 
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156770 


000004 


156722 
001102 
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MACY11 30A(1052) 
CNT.RDY: WAIT FOR CONTROL READY ROUTINE 


64$: 
MOV (SP) ,-(SP) 
SUB #2, (SP) 
TYPOC :GO TYPE PC IN THE MAIN PROGRAM, 
; WHERE ERROR OCCURRED 
TYPE ,67$ 3: TYPE ASCIZ STRING 
BR 66% 3:;GET OVER THE. ASCIZ 
3:67$: .ASCIZ / RKCS=/ 
66$: 
MOV @RKCS,-(SP) ;GET RKCS 
TYPOC :GO TYPE IT 
38: RTI sRETURN FROM THIS 


sROUTINE TO THE MAIN 
; PROGRAM 


> THIS PART OF THE PROGRAM CONTAINS THE COMMON ROUTINES CALLED 
;FROM THE SYSMAC.SML PACKAGE 


-SBTTL SCOPE HANDLER ROUTINE 


POPPI iti iti iti litiiiritiitiii isi i siti ti iii iit iiiiit 
STHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
:tAND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
;*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
seTMe SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

W14=1 LOOP ON TEST 


‘ eSul1= 1 INHIBIT ITERATIONS 
- *SW09=1 LOOP ON ERROR 
:*Sw08=1 LOOP ON TEST IN SWR<7:0> 
7 *CALL 
;@ SCOPE 7; SCOPE=I0T 
SSCOPE: 
CKSWR ::;TEST FOR CHANGE IN SOFT-SWR 
1$: BIT #BIT14,aSWR ; LOOP ON PRESENT TEST? 
BNE SOVER :YES IF SW14=1 


SMAARASTART OF CODE FOR THE XOR TESTERS#AMS 
SXTSTR: BR 6% 7: 1F RUNNING ON THE ‘‘XOR’’ TESTER CHANGE 
:: THIS INSTRUCTION TO A ‘‘NOP'’ (NOP=240) 

MOV @#ERRVEC,-(SP) ;;SAVE THE CONTENTS OF THE ERROR VECTOR 
MOV #5$ ,a#ERRVEC ::SET FOR TIMEOUT 
TST a#177060 7: TIME OUT ON XOR? 
MOV (SP)+,@#ERRVEC ;;RESTORE THE ERROR VECTOR 
BR SSVLAD ::G0 TO THE NEXT TEST 

5$: CMP (SP)+, (SP) + 


;;CLEAR THE STACK AFTER A TIME OUT 
MOV (SP)+, a@#ERRVEC 
7$ OOP ON THE PRESENT TEST 


aR : sRESTORE THE ERROR VECTOR 
6$:;###"HEND OF CODE FOR THE XOR TESTERS##M# 
BIT #BITO8,aSwR ;;LOOP ON SPEC. TEST? 
BEQ 2$ :;BR IF NO 
@SWR,STSTNM :;0N THE RIGHT TEST? 
BEQ SOVER sn IF Ves 
2$: TSTB SERFLG ;;HAS AN ERROR OCCURRED? 


SWR<7:0> 


SEQ 0120 
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022410 


022412 


022430 


022434 
022442 
022444 
022452 


022454 
022460 
022466 


001421 
sept 


000050 


104407 


005237 
032777 


101053 


0116357 
162737 
117737 
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001115 
001000 
001110 


001103 
001206 


004000 
001100 


001104 
001206 


000001 


001106 


001103 


001102 
001112 


000100 
001112 
001116 


000002 
156424 


TEST 2 


001103 
156664 
001106 


156632 


001104 


001104 
001206 


001115 
156540 


156512 


156476 
000005 
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SCOPE HANDLER ROUTINE 


7$: 
4$: 


3$: 


1$: 


SSVLAD: 


SOVER: 


SMXCNT: 


50 


3$ 

ne ares 
#B1T09,aSWR 
4$ 
a 


SOVE 
SERFLG 
STIMES 


1$ 
#B1T11,aSWR 
1$ 


SPASS 
1$ 
SICNT 


thn le -SICNT 


T 
(SP) ,SLPADR 
(SP) ,SLPERR 
SESCAPE 
#1, SERMAX 
STSTNM,@DISPLAY 
SLPADR, (SP) 


58 PAGE 122 
SEQ 0121 


:BR IF NO 
EMA. — FOR THIS TEST OCCURRED? 


BR 
;s LOOP ON ERROR? 
>BR IF NO 
:;SET LOOP ADDRESS TO LAST SCOPE 


7;ZERO THE ERROR FLAG 
:;CLEAR THE NUMBER OF ITERATIONS TO MAKE 
: ESCAPE TO THE NEXT TEST 
>; INHIBIT ITERATIONS? 
:7;BR IF YES 
calf FIRST PASS OF PROGRAM 
INHIBIT ITERATIONS 
;s INCREMENT ITERATION COUNT 
:CHECK THE NUMBER OF ITERATIONS MADE 
>: BR IF MORE ITERATION REQUIRED 
;;REINITIALIZE THE ITERATION COUNTER 
7:SET NUMBER OF ITERATIONS TO DO 
3; COUNT TEST NUMBERS 
7:SAVE SCOPE LOOP ADDRESS 
7: SAVE ERROR LOOP ADDRESS 
;;CLEAR THE ESCAPE FROM ERROR ADDRESS 
>zONLY ALLOW ONE(1) ERROR ON NEXT TEST 
::DISPLAY TEST NUMBER 
7: FUDGE RETURN ADDRESS 
ss FIXES PS 
:;MAX. NUMBER OF ITERATIONS 


FF ARRAS SAAS TASER SAAS RATE A AAA AAR EEA 


-SBTTL ERROR HANDLER ROUTINE 


3 *SW15=1 HALT ON ERROR 


7 *SW13=1 


1$: 


6$: 


; *Sw06=1 

“360 TO SERRTYP 
SERROR: CKSWR 
7$: B 


INHIBIT ERROR TYPEOUTS 
TESTING ON SIMULATOR 


LOOP ON ERROR 


CYCLE ON ERROR TO PREVIOUS ‘SCOPE’ 
DROP DRIVE AFTER MAXIMUM (ALLOWABLE) ERRORS ON THE DRIVE 


ON ERROR 


SERFLG 
7$ 


:CHECK FOR SOFTWARE SWITCH REGISTER REQUEST 
;SET THE ERROR FLAG 
;DON'T LET THE FLAG GO TO ZERO 


STSTNM,@DISPLAY ;DISPLAY TEST NUMBER AND ERROR FLAG 


SERTTL 


 #B1T6, aSwR 
6$ 

SERTIL, #5 

8$ 

(SP), SERRPC 


#2, SERRPC 
@SERRPC ,SITEMB 


:COUNT THE NUMBER OF ERRORS 
oe DRIVE SW SET? 


;MORE THAN 5 ERRORS ON THIS DRIVE? 
:YES, DESELCT THE DRIVE 


GET ADDRESS OF ERROR INSTRUCTION 
;STRIP AND SAVE THE ERROR ITEM CODE 


F 10 
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CZRKKF .P11 21-FEB-78 08:51 ERROR HANDLER ROUTINE SEQ 0122 


6686 022474 032777 020000 156436 BIT #SW13,aSWR ;SKIP TYPEOUT IF SET 
6687 022502 001004 BNE 2$ ;SKIP TYPEOUTS 

6688 022504 004737 022734 JSR PC ,a#SERRTYP ;G0 TO USER ERROR ROUTINE 

6689 022510 104401 001213 TYPE »SCRLF 

6690 022514 023737 000042 000046 28: CMP a#42,a#46 ;ARE WE IN ACT11 AUTO MODE? 
6691 022522 001403 BEQ .#10 ;YES, HALT ON ERROR 

6692 022524 005777 156410 TS] aSwR ;HALT ON ERROR? 

6693 022530 100002 BPL 3$ ;SKIP IF CONTINUE 

6694 022532 000000 HALT ;HALT ON ERROR! 

6695 022534 104407 CKSWR ;CHECK FOR SOFTWARE SWITCH REGIATER REQUEST 
6696 022536 032777 010000 156374 35: BIT #SW12,aSwR ;SW 12 SET? 

6697 022544 001402 BEQ +6 :NO, BRANCH 

6698 022546 013716 001106 MOV SLPADR, (SP) ;ADJUST RETURN ADRES FOR Sw12 
6699 022552 032777 001000 156360 BIT #SWO9,aSWR ;LOOP ON ERROR SWITCH SET? 

6700 022560 001402 BEQ 4$ ;BR IF NO 

6701 022562 013716 001110 MOV SLPERR, (SP) ;FUDGE RETURN FOR LOOPING 

6702 022566 005737 001210 4$: TST SESCAPE ;CHECK FOR AN ESCAPE ADDRESS 
6703 022572 001402 BEQ 5$ ;BR IF NONE 

6704 022574 013716 001210 MOV SESCAPE , (SP) ;FUDGE RETURN ADDRESS FOR ESCAPE 
= 022600 000002 5$: RTI ; RETURN 

6707 022602 005737 001434 8$: TST TS6FLG ;1F EROR WAS IN LAST TEST (POLL) 
6708 ;DROP ALL THE DRIVES 

6709 022606 001407 BEQ 10$ 

6710 022610 104401 001303 TYPE .MSG5 

6711 022614 005037 001412 CLR DRIVS 

6712 022620 022626 CMP (SP)+,(SP)+ 

6713 022622 000137 020652 JMP SEOP 

6714 022626 013746 001354 108: MOV DRVPTR,-(SP) :DROP THE DRIVE FROM THE 

6715 022632 162716 000002 SUB #2, (SP) :SELECTION LIST 

6716 022636 013746 001350 MOV DRIVAD,-(SP) ;DRIVE ADDR TO STACK 

6717 022642 004737 021200 JSR PC, SHFTRT ;RIGHT JUSTIFY 

6718 022646 042716 000001 BIC #1, (R6) ;MAKE EVEN 

6719 022652 062716 001414 ADD #DRIVO, (SP) ;POINTS TO TABLE FOR EVEN DRIVE 
6720 022656 042776 100000 000000 BIC #B1T15,a(R6) ; TEST REMAINING DRIVE AS RKOSE 
6721 022664 062716 000002 ADD #2, (R6) :POINT TO ODD 

6722 022670 042736 100000 BIC #BIT1S.a(SP)+ ;TEST AS RK-OS5E 

6723 022674 012736 019000 MOV #BIT12,a(SP)+ ; INDICATE THIS DRIVE DROPPED 
6724 022700 104401 001272 TYPE .MSG4 

6725 022704 013746 901350 MOV DRIVAD ,-(R6) ;PUSH DRIVE # ON STACK 

6726 022710 004737 021200 JSR PC, SHFTRT :SHIFT IT BEFORE TYPING 

6727 022714 104402 TYPOC ;TYPE OUT DRIVE # 

6728 022716 104401 001315 TYPE -MSG6 

6729 022722 005337 001412 DEC DRIVS :DECREMENT # OF DRIVES PRESNT 
6730 022726 022626 9$: CMP (SP)+,(SP)+ RESTORE STACK 

6731 022730 000137 020026 JMP BTEOP ;GO BACK TO THE END OF PROGRM 
6732 ; LINKAGE. 

6733 

he: -SBTTL ERROR MESSAGE TYPEOUT ROUTINE 

6736 SFU AAA RASA ERRATA EAE AE EA AAA RATA TAKA AAR AARAAAAEARAERAARARAEE 

6737 ;*THIS ROUTINE USES THE "ITEM CONTROL BYTE’ (SITEMB) TO DETERMINE WHICH 
6738 ;*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ‘ERROR TABLE'’ (SERRTB), 
rch ;*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


6741 022734 SERRTYP: 
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CZRKKF 


-P11 


022734 
022740 
022742 
022744 
022750 


022752 
022756 


023064 


104401 
010046 
005000 
153700 
001004 


013746 


104402 
000426 
ttn 


000207 


013046 
104402 
005710 
001770 
104401 
000771 
020040 
023070 
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001213 


001114 


001116 


001442 
023006 


001213 
023024 


001213 


001213 


023064 
000 
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ERROR MESSAGE TYPEOUT ROUTINE 


TYPE . SCRLF FN a a RETURN’ & “‘LINE FEED" 


MOV RO,-(SP) :7SAVE R 

CLR RO ;:PICKUP THE ITEM INDEX 

BISB a*#SITEMB,RO 

BNE 1$ ial ITEM NUMBER IS ZERO, JUST 


;TYPE THE PC OF THE ERROR 
::SAVE SERRPC FOR TYPEOUT 
;;ERROR ADDRESS 


MOV SERRPC ,-(SP) 


TYPOC ::GO TYPE--OCTAL ASCII(ALL DIGITS) 
BR 6$ :;GET OUT 
1$ DEC RO ;;ADJUST THE INDEX SO THAT IT WILL 
ASL RO 3 WORK FOR THE ERROR TABLE 
ASL RO 
ASL RO 
ADD #SERRTB,RO ;;FORM TABLE POINTER 
MOV (RO)+,2$ ;;PICKU® “ERROR MESSAGE’ POINTER 
BEQ 3$ :;SKIP TYPEOUT IF NO POINTER 
TYPE ;;TYPE THE ‘ERROR MESSAGE"’ 
2$: -WORD 0 ;: "ERROR MESSAGE’ POINTER GOES HERE 
TYPE . SCRLF 7; '"CARRIAGE RETURN’ @ “‘LINE FEED’’ 
3$: MOV (RO)+,4$% ;;PICKUP ‘DATA HEADER’ POINTER 
BEQ 5$ ;:SKIP TYPEOUT IF 0 
TYPE >; TYPE THE ‘DATA HEADER’’ 
4%: -WORD 0 :;\'DATA HEADER’’ POINTER GOES HERE 
TYPE . SCRLF ;3 CARRIAGE RETURN’ & “LINE FEED’’ 
5$: MOV CRO) ,RO ;:PICKUP "DATA TABLE’ POINTER 


BNE 7$ ::GO TYPE THE DATA 


6$: MOV (SP)+,R0 7 RESTORE RO 
TYPE , SCRLF ::°"CARRIAGE RETURN’ & “LINE FEED’ 
ae RTS PC 7 RETURN 
MOV a(RO)+,-(SP) ::;SAVE a(RO)+ FOR TYPEOUT 
TYPOC ::GO TYPE--OCTAL ASCIIC(ALL DIGITS) 
TST (RO) :;1S THERE ANOTHER NUMBER? 
BEQ 6$ ::BR IF NO 
TYPE ,8$ :; TYPE TWO(2) SPACES 
BR 7$ :; LOOP 
8$: Matiz « J ::TWO(2) SPACES 
EVEN 
-SBTTL TYPE ROUTINE 


SPSS AAAASHAAA EATER ASAT A TEASER RATS AAEAEKAAARARAKRAKARAERAEKAARAKERAREE 
:*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A QO BYTE. 
ant WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
*@ 2 


:*NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

s *NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 

-* 

:*CALL: 

3*1) USING A TRAP INSTRUCTION 

_— TYPE »MESADR ::;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
-* 

;* TYPE 

;@ MESADR 


SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 


SEC 0123 
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023170 


023174 
023200 
023202 
023206 
023212 


023214 
023220 


023306 


105737 
100002 


013746 


105366 
002770 
004737 
105337 
000770 


112716 


000207 


001157 


000002 


000002 
000011 
000200 


0233504 


023240 
001156 


001154 
000001 


023240 
023304 


000040 
023240 
000007 


155704 


000002 
000015 


023304 
000012 
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023504 


155676 
000002 


000002 


MACY11 30A‘1052) 


TYPE ROUTINE 


STYPE: 
1$: 
23: 
60$: 


3$: 
4$: 


5$: 
6$: 


7$: 


;HORIZONTAL TAB 


8$: 
9$: 


STYPEC: 


1$: 


SCHARCNT: .WORD 


INCB 


STYPEX: RTS 


H 10 
21-FEB-78 08: 


STPFLG 
1$ 


3$ 

RO,-(SP) 
a2(SP),R0 
(RO)+,-(SP) 
4$ 

(SP)+ 
(SP)+,RO 
#2, (SP) 


* lal 
#CRLF, (SP) 
5$ 

(SP)+¢ 


SCHARCNT 

2$ 

PC ,STYPEC 
SFILLC, (SP)+ 
2$ 

SNULL ,~(SP) 
1(SP) 

6$ 


PC ,STYPEC 
SCHARCNT 
7$ 


PROCESSOR 


CSP) 
PC, STYPEC 
#7, SCHARCNT 
9$ 


(SP)+ 
2$ 


asTPS 
STYPEC 
2(SP) ,a$TPB 
mer 


SCHARCNT 
STYPEX 
#LF,2(SP) 
STYPEX 
(PC)+ 


PC 


So 
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:7;1S THERE A TERMINAL? 

7;BR IF YES 

;;HALT HERE IF NO TERMINAL 

3; LEAVE 

;; SAVE RO 

3:GET ADDRESS OF ASCIZ STRING 

37PUSH CHARACTER TO BE TYPED ONTO STACK 
::BR IF IT ISN'T THE TERMINATOR 

3; 1F TERMINATOR POP IT OFF THE STACK 
s RESTORE RO 

: :ADJUST RETURN PC 

7 RETURN 

3;BRANCH IF <HT> 


::BRANCH IF NOT <CRLF> 


;;POP <CR><LF> EQUIV 
>; TYPE A CR AND LF 


;;CLEAR CHARACTER COUNT 

;;GET NEXT CHARACTER 

:;GO TYPE THIS CHARACTER 

::1S IT TIME FOR FILLER CHARS.? 
;;1F NO GO GET NEXT CHAR. 

::GET # OF FILLER CHARS. NEEDED 
;zAND THE NULL CHAR. 

;;DOES A NULL NEED TO BE TYPED? 
>3;BR IF NO--GO POP THE NULL OFF OF STACK 
3:GO TYPE A NULL 

;;b0 aid COUNT AS A COUNT 


;;REPLACE TAB WITH SPACE 

;: TYPE A SPACE 

;;BRANCH IF NOT AT 

;; TAB STOP 

;;POP SPACE OFF STACK 

;;GET NEXT CHARACTER 

;;WAIT UNTIL PRINTER IS READY 


;;LOAD CHAR TO BE TYPED INTO DATA REG. 
3:18 CHARACTER A CARRIAGE RETURN? 
;;BRANCH IF NO 

27 YES=-CLEAR CHARACTER COUNT 


sEXIT 

p18 CHARACTER A LINE FEED? 
;BRANCH IF YES 

>: COUNT THE CHARACTER 

;; CHARACTER COUNT STORAGE 


-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


SEQ 0124 
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023310 


023472 


012601 
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020200 
000020 
000055 


023524 
000040 


025514 


000001 
000060 
000040 


000010 


177777 


000001 


177777 


177776 
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CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


PETIT CSCS i iit iii iii i iii iii i iii. 
:*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
s*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
:*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 


;*BEFORE THE FIRST DIGIT OF THE 


;*REPLACED WITH SPACES. 


7*CALL: 
** 
;a 


STYPDS: 


1$: 


2$: 
3$: 


4$: 


7$: 


8$: 


9$: 


MOV 


TYPDS 


NUM ,-(SP) 


RO,-(SP) 
R1,-(SP) 
R2,-(SP) 
R3,-(SP) 
R5,-(SP) 
#20200,-(SP) 
cia 


R5 
#*=,1(SP) 
RO 


#SDBLK,R35 
#* ,(R3)¢ 


R2 
SDTBL(RO),R1 
R1,R5 


2 


7 
(SP) 


(SP)+ 

9$ 

-1(SP) ,-2(R3) 
(R3) 


(SP)+,R5 
(SP)+,R3 
(SP)+,R2 
(SP)+,R1 


NUMBER. LEADING ZEROS WILL ALWAYS BE 


3;z;PUT THE BINARY NUMBER ON THE STACK 
::GO TO THE ROUTINE 


7;PUSH RO ON STACK 

:;PUSH R1 ON STACK 

:;PUSH R2 ON STACK 

::PUSH R3 ON STACK 

::PUSH R5 ON STACK 

:;SET BLANK SWITCH AND SIGN 
::GET THE INPUT NUMBER 

::;BR IF INPUT IS POS. 

> ;MAKE THE BINARY NUMBER POS. 
: MAKE THE ASCII NUMBER NEG. 
::ZERO THE CONSTANTS INDEX 

;; SETUP THE OUTPUT POINTER 
::SET THE FIRST CHARACTER TO A BLANK 
7; CLEAR THE BCD NUMBER 

3:GET THE CONSTANT 

::FORM THIS BCD DIGIT 

::;BR IF DONE 

>; INCREASE THE BCD DIGIT BY 1 


::ADD BACK THE CONSTANT 
3; CHECK IF BCD DIGIT=0 
::FALL THROUGH IF 0 
::STILL DOING LEADING 0‘S? 
::BR IF YES 
::MSD? 
::BR IF NO 
7: YES--SET THE SIGN 
>:;MAKE THE BCD DIGIT ASCII 
:;MAKE IT A SPACE IF NOT ALREADY A DIGIT 
>:PUT THIS CHARACTER IN THE OUTPUT BUFFER 
7: JUST INCREMENTING 
s;; CHECK THE TABLE INDEX 
;:;GO DO THE NEXT DIGIT 
::G0 TO EXIT 
>:GET THE LSD 
::GO CHANGE TO ASCII 
AS i Be THE FIRST NON-ZERO? 
: N 


7: YES--SET THE SIGN FOR TYPING 
:;SET THE TERMINATOR 

::POP STACK INTO R5 

:;POP STACK INTO R3 

:;POP STACK INTO R2 


7 ;POP STACK INTO R1 


SEQ 0125 
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023474 
023476 
023502 
023510 
023512 
023514 
023516 
023520 
023522 
023524 


023534 


023642 


104401 


000004 


017646 
116637 


000404 


023524 
000002 


000000 
000091 
023761 
000002 


000001 


000006 
000005 


023761 


000006 
023760 
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012600 


000004 


023757 


023757 
023761 
023756 


MACY11 30A(1052) 


SDTBL: 


SDBLK: 


MOV 
TYPE 
MOV 
MOV 
RTI 


10000. 


1000. 
100. 


10. 
.BLKW 


J 10 
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(SP)+,RO 


. SOBLK 


2(SP),4(SP) 
(SP)+, (SP) 


& 


3;POP STACK INTO RO 
:;z:NOW TYPE THE NUMBER 
:; ADJUST THE STACK 


;;RETURN TO USER 


-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


BETTI ITI LIST iii titi icc c ii titi iii iat i ii siti ii titi iii tt: 
SS THIS KOUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
:*OCTAL (ASCII) NUMBER AND TYPE IT. 
> *STYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


> *CALL: 


NUM ,-(SP) 


> ;NUMBER TC BE TYPED 
:;CALL FOR TYPEOUT 
::N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
::M=1 OR O 
:71=TYPE LEADING ZEROS 
;;0=SUPPRESS LEADING ZEROS 


> *STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
;*STYPOS OR STYPOC 


:*CALL: 

;* MOV NUM ,-(SP) ; ;NUMBER TO BE TYPED 

3 TYPON 3:CALL FOR TYPEOUT 

*® 

Do 3 la A ic HERE FOR TYPEOUT OF A 16 BIT NUMBER 

7 *CALL: 

;@ MOV NUM, -(SP) > ;NUMBER TO BE TYPED 

;@ TYPOC 3;CALL FOR TYPEOUT 

STYPOS: MOV a(SP),-(SP) :;PICKUP THE MODE 
MOVB 1¢SP) .SOFILL 7;LOAD ZERO FILL SWITCH 
MOVB (SP)+,SOMODE+1 ;;NUMBER OF DIGITS TO TYPE 
ADD , (SP) : ;ADJUST RETURN ADDRESS 
BR STYPON 

STYPOC: MOVB #1,SOFILL ::SET THE ZERO FILL SWITCH 
MOVB #6, S0OMODE +1 ::SET FOR SIX(6) DIGITS 

STYPON: MOVB #5, S0CNT :;SET THE ITERATION COUNT 
MOV R3,-(SP) 7: SAVE R3 
MOV R4,-(SP) 7; SAVE R4 
MOV R5,-(SP) :; SAVE R5 
sg SOMODE +1. RS 3;;GET THE NUMBER OF DIGITS TO TYPE 
N 
ADD #6,R4 s;;SUBTRACT IT FOR MAX. ALLOWED 
MOVB R4. SOMODE :;SAVE IT FOR USE 
MOVB SOFILL,R4 ::;GET THE ZERO FILL SWITCH 
MOV 12(SP),R5 ;:;PICKUP THE INPUT NUMBER 
CLR R3 ;; CLEAR THE OUTPUT WORD 

1S: ROL R5 : ROTATE MSB INTO ‘“'C'' 
BR 3$ :;G0 DO MSB 


SEG 9126 
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023644 


023760 


023762 


024024 


024026 
024032 


006105 


0 
000000 


022737 


001456 


104401 
104401 


023760 
177770 


000060 


023756 


000002 


000176 
155146 
155142 
177600 
000007 
001134 


024647 
024654 
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000004 


001140 


000001 


MACY11 30A(1052) 
BINARY TO OCTAL (ASCII) AND TYPE 


23: 


3$: 


4$: 
5$: 


7$: 


6$: 


8$: 
SOCNT: 


SOFILL: 
SOMODE : 


- SBTTL 


- ENABL 


-BYTE 
BYTE 
. WORD 
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R3 
SOMODE 


(SP)+, (SP) 


oo°o°oo 


TTY INPUT ROUTINE 


LSB 


>;FORM THIS DIGIT 


:;GET LSB OF THIS DIGIT 
: + TYPE THIS DIGIT? 
;BR IF NO 
: GET of OF JUNK 
:; TEST FOR O 
3; SUPPRESS THIS 0? 
7;BR IF YES 
;;DON'T SUPPRESS ANYMORE 0'S 
7;MAKE THIS DIGIT ASCII 
;;MAKE ASCII IF NOT ALREADY 
:;SAVE FOR TYPING 
::GO TYPE THIS DIGIT 
:;COUNT BY 1 
:;BR IF MORE TO DO 
:;BR IF DONE 
s; INSURE LAST DIGIT ISN'T A BLANK 
::GO DO THE LAST DIGIT 
; RESTORE RS 
s RESTORE R4 
> :RESTORE R3 
3::;SET THE STACK FOR RETURNING 


: ;RETURN 

STORAGE FOR ASCII DIGIT 

>: TERMINATOR FOR TYPE ROUTINE 
::OCTAL DIGIT COUNTER 

7:ZERO FILL SWITCH 

3; :NUMBER OF DIGITS TO TYPE 


'MARBRABRARAABAAAREAARESALRRRARERRRRAEARARESRASERRASESASAS AAAS SSS & | 


PEP I titi ti titi rr iri rir i tir i titi titi iiiitiititiiiii isis as 
> *SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
;*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
S*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
;*WHEN OPERATING IN TTY FLAG MODE. 


SCKSWR: 


SGTSWR: 


CMP 


TYPE 
TYPE 


#SWREG, SWR 
15$ 


astKs 

15$ 
a$TKB,-(SP) 
# €177, (SP) 
#7,(SP)+¢ 


15$ 
SAUTOB, #1 
15$ 


,SCNTLG 
, SASWR 


:31S THE SOFT-SWR SELECTED? 
;:BRANCH IF NO 

:; CHAR THERE? 

;:1F NO, DON’ - ~* AROUND 

73 SAVE THE CHA 

;; STRIP-OF F THE ASCII 

::1S IT A CONTROL G? 

;;NO, RETURN TO USER 

;;ARE WE RUNNING IN AUTO-MODE? 
;; BRANCH IF YES 


;;ECHO THE CONTROL-G ( G) 
;; TYPE CURRENT CONTENTS 


SEQ 0127 
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024036 
024042 
024044 
024050 
024052 
024054 
024060 


024062 
024066 


024072 


024110 


024112 


024242 


013746 
104402 
104401 
005046 
005046 
105777 
100375 


117746 
042716 


021627 
001005 
104401 
062706 
000757 


021627 


000720 
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000176 
024665 


155064 


155060 
177660 


000025 


024642 
000006 


000015 
000004 
000002 
000006 
001213 
001135 
000100 


023240 
000060 


000067 


000060 
000002 


000002 
177776 


001212 


155004 


000001 
154762 
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TTY 


19$: 


7$: 


9$: 


20$: 


15$: 
16$: 


17$: 


18$: 
BR 
.DSABL LSB 


INPUT ROUTINE 
MOV SWREG,-(SP) 
TYPOC 
TYPE . SANEW 
CLR -(SP) 
CLR -(SP) 
TSTB astKks 
BPL 7$ 


MOVB a$TKB,-(SP) 
BIC # C177, (SP) 


CMP (SP) ,#25 
10% 
TYPE ,SCNTLU 


ADD #6,SP 
BR 19$ 
CMP (SP) ,#15 
BNE 16% 
TST 4(SP) 
BEQ 11$ 
MOV 2(SP) ,aSwR 
ADD #6,SP 
¢ TYPE - SCRLF 


1 
MOV #100,a$TKS 


JSR PC ,STYPEC 
CMP (SP) ,#60 


18$ 

CMP (SP) ,#67 
18$ 

BIC #60,(SP)+ 
2(SP) 


BEQ 17$ 
ASL (SP) 
ASL (SP) 
ASL (SP) 
INC 2 (SP) 


BIS -2(SP), (SP) 
BR 7$ 
TYPE , SQUES 

20$ 
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;;SAVE SWREG FOR TYPEOUT 

;;GO TYPE--OCTAL ASCII(ALL DIGITS) 
;;PROMPT FOR NEW SWR 

7; CLEAR COUNTER 

;; THE NEW SWR 

3; CHAR THERE? 

:;1f NOT TRY AGAIN 


:;PICK UP CHAR 
MAKE IT 7-BIT ASCII 


7:18 IT A CONTROL-U? 
;;BRANCH IF NOT 

;;YES, ECHO CONTROL-U ( U) 
>; IGNORE PREVIOUS INPUT 
;;LET'S TRY IT AGAIN 


3:18 IT A <CR>? 

;;BRANCH IF NO 

3;YES, IS IT THE FIRST CHAR? 
;:BRANCH IF YES 

s:SAVE NEW SWR 

:; CLEAR UP STACK 

:;ECHO <CR> AND <LF> 

; RE-ENABLE TTY KBD INTERRUPTS? 
7; BRANCH IF NOT 

: ;RE-ENABLE TTY KBD INTERRUPTS 
7 ;RETURN 

3;:ECHO CHAR 

::CHAR < 0? 

;;BRANCH IF YES 

»:CHAR > 7? 

:: BRANCH IF YES 

;;STRIP-OFF ASCII 

7:18 THIS THE FIRST CHAR 

; BRANCH IF YES 

::NO, SHIFT PRESENT 

33 CHAR OVER TO MAKE 

33 ROOM FOR NEW ONE. 

> ;KEEP COUNT OF CHAR 

:;SET IN NEW CHAR 

3:GET THE NEXT ONE 

:; TYPE ?<CR><LF> 

::; SIMULATE CONTROL-U 


° 


‘EAR RARARRRRRSARRRRRRRRARARRRSASRRRASASARA RASA ADA REARS SALADS SSD DD 


3*TH 


> *CALL 


* 
. 
-* 
¢ 
‘@ 


RDCHR 
RETURN HERE 


IS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
as. 


;; INPUT A SINGLE CHARACTER FROM THE TTY 
;; CHARACTER IS ON THE STACK 
;;WITH PARITY BIT STRIPPED OFF 


SEG 0128 


M10 
MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2 MACY11 30A(1052) 21-FEB-78 08:58 PAGE 130 


CZRKKF .P11 21-FEB-78 08:51 TTY INPUT ROUTINE SEQ 0129 
7078 ; 
7079 
7080 024244 011646 SRDCHR: MOV (SP) ,-(SP) 3; PUSH faa" THE PC 
7081 024246 016666 000004 000002 MOV 4(SP),2(SP) 72:SAVE THE PS 
7082 024254 105777 154664 1$: TSTB asTKs ;;WAIT FOR 
7083 024260 100375 BPL 1$ :3A CHARACTER 
7084 024262 117766 154660 000004 MOVB @STKB,4(SP) :;READ THE TTY 
7085 024270 042766 177600 000004 BIC # C<177>,4(SP) ;;GET RID OF JUNK IF ANY 
7086 024276 026627 000004 000023 CMP 4(SP) , #23 3:18 IT A CONTROL-S? 
7087 024304 001013 BNE 3$ :;BRANCH IF NO 
7088 024306 105777 154632 23: TSTB asTKs 7;WAIT FOR A CHARACTER 
7089 024312 100375 BPL 2$ ;;LOOP UNTIL ITS THERE 
7090 024314 117746 154626 MOVB asTKB,-(SP) ::GET CHARACTER 
7091 024320 042716 177600 BIC # €177,(SP) 7;MAKE IT 7-BIT ASCII 
7092 024324 022627 000021 CMP (SP)+,#21 3:18 IT A CONTROL-Q? 
7093 024330 001366 BNE 2s self NOT DISCARD IT 
7094 024332 000750 BR 1$ : YES, RESUME 
7095 024334 026627 000004 000140 3$: CMP 4(SP),#140 51S IT UPPER CASE? 
7096 024342 002407 BLT 4$ :;BRANCH IF YES 
7097 024344 026627 000004 000175 CMP 4(SP),#175 e315 IT A SPECIAL CHAR? 
7098 024352 003003 BGT 4$ ;BRANCH IF YES 
7099 024354 042766 000040 000004 BIC #40,4(SP) : MAKE IT UPPER CASE 
7100 024362 000002 4$: RTI ::G0 BACK TO USER 
7101 ST RRAAAARAREAARAA AAA ETAT AEE EEAE RAE EAA KKEE 
7102 :*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 
7103 s*CALL: 
7104 32 RDLIN 7; INPUT A STRING FROM THE TTY 
7105 :* RETURN HERE 7; ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
as .* 7: TERMINATOR WILL BE A BYTE OF ALL O'S 
7108 024364 010346 SRDLIN: MOV R3,-(SP) 7; SAVE R3 
7109 024366 005046 CLR - (SP) 3;CLEAR THE RUBOUT KEY 
7110 024370 012703 024620 1$: MOV #STTYIN.RS ;;GET ADDRESS 
7111 024374 022703 024642 2$: CMP. WSTTYIN¢22,R35 ;;BUFFER FULL? 
7112 024400 101456 BLOS 4% :;BR IF YES 
7113 024402 104410 RDCHR 3;G0 READ ONE CHARACTER FROM THE TTY 
7114 024404 112613 MOVB (SP)+, (R3) 3:GET CHARACTER 
7115 024406 122713 000177 10$: CMPB #177, (R3) e215 IT A RUBOUT 
7116 024412 001022 BNE 5$ +3 BR IF NO 3 
7117 024414 005716 TST (SP) 21S Hag THE FIRST RUBOUT? 
7118 024416 001007 BNE 6$ NO 
7119 024420 112737 000134 024616 MOVB #’ ,9$ caTTPe. A BACK SLASH ° 
7120 024426 104401 024616 TYPE . 
7721 0244352 012716 177777 MOV #-1, (SP) :3SET THE RUBOUT KEY 
7122 024436 005303 6$: DEC R3 ;BACKUP BY ONE 
7123 024440 020327 024620 CMP RS, #STTYIN =: STACK EMPTY? 
7124 024444 103434 BLO WB :3:BR IF YES 
7125 024446 111337 024616 MOVB (R3),9$ ::SETUP TO TYPEOUT THE DELETED CHAR. 
7126 024452 104401 024616 TYPE 9% ::G0 TYPE 
7127 024456 000746 BR 2$ ::GO READ ANOTHER CHAR. 
7128 024460 005716 5$: TST (SP) ;;RUBOUT KEY SET? 
7129 024462 001406 BEQ 7$ ;:BR IF NO 
7130 024464 112737 000134 024616 MOVB #' ,9$ :; TYPE A BACK SLASH 
7131 024472 104401 024616 TYPE 9$ 
7132 024476 005016 CLR (SP) ;;CLEAR THE RUBOUT KEY 


7133 024500 122713 000025 7$: CMPB #25, (R3) ;;1S CHARACTER A CTRL U? 
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7134 024504 001003 BNE 8$ 7:BR IF NO 

7135 024506 104401 024642 TYPE  SCNTLU 7: TYPE A CONTROL ‘‘U"’ 

7136 024512 000726 BR 1$ 3;GO0 START OVER 

7137 024514 122713 000022 8$: CMPB #22, (R3) :31S CHARACTER A ‘* R°'?” 

7138 024520 001011 BNE 3$ ::BRANCH IF NO 

7139 024522 105013 CLRB (R3) 7; CLEAR THE erage 

7140 024524 104401 001213 TYPE - SCRLF sc; TYPE A ‘CR’ &' 

7141 024530 104401 024620 TYPE -STTYIN 3: TYPE THE INPUT STRING 

7142 024534 000717 BR 2$ ::60 ver ANOTHER CHACTER 

7143 024536 104401 001212 4$: TYPE , SQUES Thi. a aoe oe 

7144 024542 000712 BR 1$ 7; CLEAR THE BUFFER AND LOOP 

7145 024544 111337 024616 3$: MOVB (R3),9$ 7:ECHO THE CHARACTER 

7146 024550 104401 024616 TYPE 9% ) 

7147 024554 122723 000015 CMPB #15,(R3)+ +3 CHECK FOR RETURN 

7148 024560 001305 BNE 2$ ;LOOP IF NOT RETURN 

7149 024562 105063 177777 CLRB -1(R3) =: CLEAR RETURN (THE 15) 

7150 024566 104401 001214 TYPE , SLF 7; TYPE A LINE FEED 

7151 024572 005726 TST (SP)+ ;;CLEAN RUBOUT KEY FROM THE STACK 
7152 024574 012603 MOV (SP)+,R3 pir is R3 

7153 024576 011646 MOV (SP), -(SP) :ADJUST THE STACK AND PUT ADDRESS OF THE 
7154 024600 016666 000004 000002 MOV 4(SP), 2(SP) $3 FIRST ASCII CHARACTER ON IT 
7155 024606 012766 024620 000004 MOV #STTYIN,4(SP) 

7156 024614 000002 RTI 7 RETURN 

7157 024616 00 «OS: -BYTE 0 ::STORAGE FOR ASCII CHAR. TO TYPE, 
7158 024617 00 -BYTE 0 3: TERMINATOR 

7159 024620 000022 STTYIN: .BLKB 22 sRESERVE 22 BYTES FOR TTY INPUT 
7160 024642 052536 005015 000 SCNTLU: .ASCIZ / U/<15><12> :: CONTROL *‘U"’ 

7161 024647 136 006507 000012 S$CNILG: .ASCIZ / G/<15><12> >; CONTROL °'G’’ 

7162 0246654 005015 -053523 020122 SMSWR: .ASCIZ <15><12>/SWR = / 

7163 024662 020075 000 

7164 024665 040 047040 053505 SMNEW: .ASCIZ / NEW = / 

7165 024672 036440 000040 

7166 ;CONTROL U, RUBOUT CAPABILITY 

A 9 -SBTTL TRAP DECODER | 
7169 SRA EEA A AEA AAT AAA RAAT R ARATE ARERR RARE AEREREREES 
7170 * STHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘“‘TRAP*’’ INSTRUCTION 
7171 ;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
7172 : OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL. 
abe, :*GO TO THAT ROUTINE. 

7175 024676 010046 STRAP: MOV RO,-(SP) :;SAVE RO 

7176 024700 016600 000002 MOV 2(SP),R0 ot TRAP ADDRESS 

7177 024704 005740 TST -(RO) ;BACKUP BY 2 

7178 024706 111000 MOVB (RO) ,RO ;GET RIGHT BYTE OF TRAP 

7179 024710 006300 ASL RO sPOSITION FOR INDEXING 

7180 024712 016000 024732 MOV STRPAD (RO) ,RO «INDEX TO TABLE 

att 024716 000200 RTS RO ::G0 TO ROUTINE ; 
7183 ‘ : 
A = 3; THIS IS USE TO HANDLE THE ‘’GETPRI‘’ MACRO 

7186 024720 011646 STRAP2: MOV (SP) ,-(SP) 3;:MOVE THE PC DOWN 

7187 024722 016666 000004 000002 MOV 4(SP),2(SP) :;MOVE THE PSW DOWN 

7188 024730 000002 . RTI ;;RESTORE THE PSW 


” 


MD-11-C 
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024732 


024742 
024744 


024746 
024750 
094754 
024756 
024760 
024762 
024764 
024766 
024770 
024772 
024774 


024776 


024720 


023310 
024032 
023762 
094364 
021760 
022014 
022032 
021056 
021066 
021664 
021706 
021572 


012737 
012737 


025142 
000340 


154106 
025146 
025050 
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000024 
000026 


000024 
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TRAP TABLE 


TRAP TABLE 


. SBTTL 


;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF 


:*BY THE “‘TRAP’’ INSTRUCTION. 


STRPAD: 


ROUTINE 


STYPON 
STYPDS 


SGTSWR 
SCKSWR 


SROCHR 
SRDLIN 


CH.CRDY 


CN.RST 
CN.RDY 
BDAO 

BDA4 

DELA.Y 
WATINT 
TSTSIN 


STRAP2 

7; CALL=TYPE 

7; CALL=TYPOC 
3; CALL=TYPOS 
3; CALL=TYPON 
3; CALL=TYPDS 
3; CALL=GTSWR 
7: CALL=CKSWR 
3; CALL=RDOCHR 
3; CALL=ROLIN 
7: CALL=CHKCRDY 
;;CALL=CNT.RESET 
7: CALL=CNT.RDY 
>; CALL=BRKDAO 
77 CALL=BRKDA4 
7: CALL=DELAY 
3: CALL=WAT.INT 


;;CALL=TST.SIN 


TRAP+1 (104401) 
TRAP +#+2(104402) 
TRAP+3(104403) 
TRAP +4 (104404) 
TRAP+5 (104405) 


TRAP +6 (104406) 
TRAP+7(104407) 


SEQ 0151 


THE ROUTINES CALLED 


TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LFADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 


GET SOFT-SWR SETTING 
TEST FOR CHANGE IN SOF T~SwWR 


TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
TRAP*11(104411) TTY TYPEIN STRING ROUTINE 


TRAP+12(104412) CHECK CONTROL READY 


TRAP+13(104413) CONTROL RESET ROUTINE 


TRAP+14(104414) WAIT FOR CNTRL RDY TO SET 
TRAP+15(104415) BREAK RKDA INTO DR #,CYL,SUR,SEC BITS 
TRAP+16(104416) BREAK RKDA INTO DR #,CYL,SUR,SEC BITS 
TRAP+17(104417) TIME DELAY ROUTINE 

TRAP+20(104420) WAIT FOR RK11 INTERRUPT ROUTINE 
TRAP#+21(104421) TEST SIN ROUTINE 


-SBTTL POWER DOWN AND UP ROUTINES 


SF AAAAAAAAAAASAA AAT AREA ATE AEA AAA AERA TA AAARAARAEARAAAEKEREREEEEE 


;POWER DOWN ROUTINE 


SPWRDN: 


MOV 
MOV 


#SILLUP .@#PWRVEC ;::SET FOR FAST UP 
#340 ,a#PWRVEC+2 ;;PRIO:7 

RO,-(SP) :;PUSH RO ON STACK 
R1,-(SP) ::PUSH R1 ON STACK 
R2,-(SP) ::PUSH R2 ON STACK 
R3,-(SP) ::PUSH R3 ON STACK 
R4,~(SP) :;PUSH R4& ON STACK 
R5,-(SP) ::PUSH RS ON STACK 
@SWR,- (SP) ::PUSH @SWR ON STACK 
SP, SSAVR6 :;SAVE SP 

#SPURUP ,@#PWRVEC ;;:SET UP VECTOR 
72 ::HANG UP 


ST RARER AEA E EEE AA AEE E AAA ARATE AA AA AAA AERA AAAAARAAARARA AAAS 


MD~-11-CZRKKF, 
CZRKKF .P11 


025156 


025160 


025326 


012737 


001410 
004537 
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025142 


025146 
154040 


024776 
000340 


047520 


021504 
001350 
020000 
020000 
020000 
001350 
000011 
025302 
000100 


025302 
021504 


001350 
001414 


000002 
025160 


TEST 2 


000024 


000024 
000026 


042527 


025302 
001350 


001350 
001350 
154106 
154072 
154070 


154046 


001350 
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;POWER UP ROUTINE 


hs hla + FAST DOWN 


;:WAIT LOOP FOR THE TTY 
;;WAIT FOR THE INC 
WORD 


:;POP STACK INTO a@SwR 
::POP STACK INTO R5 
7zPOP STACK INTO R4 
:;POP STACK INTO R3 
3;POP STACK INTO R2 
::POP STACK INTO R1 
;:;POP STACK IN 


NTO RO 
#SPURDN, @#PWRVEC oat: ” THE POWER DOWN VECTOR 


REPORT THE POWER FAILURE 
‘POWER FAIL MESSAGE POINTER 
;;RESTART AT PFSTRT 
:;RESTART ADDRESS 


;; THE POWER UP SEQUENCE WAS STARTED 
:; BEFORE THE POWER DOWN WAS COMPLETE 
;;PUT THE SP HERE 


;RESETB DRIVE 


;SAVE DRIVE ADRR 
;SEE IF ODD 


>MAKE EVEN 


sMAKE ODD 
sDRIVE ADDR 
:DRIVE SEEK 


;OTHER DRIVE 


s;HEAEDS IN MOTIONN? 
:NO SO RK-05J 

:YES RK-OSF 
sRESTORE ADDR 

sWAIT FOR RESET 


;START AT DRO 
; TABLE OF AVAIL DRIVES 
s THIS DRIVE HERE? 


NO 
; COMPLEMENT HERE? 


SPWRUP: MOV 
MOV SSAVR $s 
CLR SSAVR6 
1$: INC SSAVR6 
BNE $ 
MOV (SP)+,aSwWR 
MOV (SP)+,R5 
MOV (SP)+,R4 
MOV (SP)+,R3 
MOV (SP)+,R2 
MOV (SP)+,R1 
MOV (SP)+,RO 
MOV 
MOV #340, asPWRVEC+2 ie 
TYPE 
SPWRMG: .WORD SPOWER 
MOV (PC)+, (SP) 
SPWRAD: 5 in PFSTRT 
SILLUP: HALT 
BR 72 
SSAVR6: 0 
SPOWER: .ASCIZ <15><12>*"POWER”’ 
EVEN 
FCHECK: JSR PC ,DRESET 
ERROR 26 
CNT.RESET 
MOV DRIVAD,DRHOLD 
BIT #20000 ,DRIVAD 
BEQ 1$ 
BIC #20000 ,ORIVAD 
BR 2$ 
1$: BIS #20000, DRIVAD 
23: MOV DRIVAD,@RKDA 
MOV #17, aRKCS 
CNT.RDY 
DRHOLD,@RKDA 
CNT.RDY 
BIT #100,aRKDS 
BNE 3% 
TST (R5)+ 
38: MOV DRHOLD ,DRIVAD 
JSR PC ,DRESET 
ERROR 26 
RTS R5 
DRHOLD: 0 
SIZEF: CLR DRIVAD 
MOV #DRIVO,RO 
4$: TST (RO) 
BEQ 2$ 
TST 2(R9) 
BEQ 2$ 
JSR R5,F CHECK 


SEE IF F MODEL 


SEQ 0152 
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025332 


02 
025366 


025370 
025376 


025402 
025410 


025415 
025422 


025427 


025450 


025456 
025464 


025470 
025476 


025500 
025506 


025510 
025516 
025524 


025531 
025536 
025544 


025551 
025556 
025564 
025570 
025576 


025620 


000405 


000207 


045522 
047522 


044523 
051440 


122 
051105 


051447 


045522 
047522 


050104 
000124 


051104 
000° 24 


045522 
052111 
051440 


104 
052111 
051440 

123 
042111 
042523 


042523 


030040 
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100000 
100000 


040000 
001433 


051504 
000122 


020114 


020125 


032460 
047040 
052105 


054522 
047040 
052105 


045517 
023516 
000124 


026503 
042040 
020124 
020124 

000 


TEST 2 


000002 


001350 


042440 


051511 
000 
020101 
000 
020101 


000047 
042440 


0425235 
042523 


041040 
052117 

000 
041040 
052117 

000 
042040 
020124 
047103 


047524 
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23: 


EM11: 


EM12: 


EM13: 


EM16: 


EM21: 


EM30: 


EM31: 


EM32: 


EM33: 


EM34: 


EM35: 


2$ 3J MODEL 

#100000, (RO) :SET SIGN FOR F 
#100000 ,2(R0) ;BOTH DRIVES 

(RO) + 

(RO) + sNEXT PAIR OF DRIVES 
#40000,DRIVAD ;NEXT ACTUL ADDR 
#DRIV7+1,R0 ;CHECKED ALL? 

a :NOT YET 


sERROR MESSAGES 


. SBTTL 
~ASCIZ 


~ASCIZ 


~ASCIZ 


~ASCIZ 


eASCIZ 


~ASCIZ 


-ASCIZ 


~ASCIZ 


~ASCIZ 


-ASCIZ 


-ASCIZ 


ERROR MESSAGES 
/RKWC EROR/ 


/SIN IS SET/ 


/RKBA EROR/ 


/RKDA WRONG AFTER ‘SSE*'/ 


/RKDOS EROR/ 


/DPL SET/ 


/DORU SET/ 


/RKOS BIT NOT SET/ 


/DRY BIT NOT SET/ 


/SOK DIDN'T SET/ 


/SEC-CNTR DIDN'T COUNT TO 0/ 


SEQ 0133 


MD-11-CZRKKF, 


CZR 


KKF 


-P11 


025623 

0 
025644 
025652 


025653 
025660 


025666 
025674 
025702 
025707 


025744 
025747 


026102 
026110 


026112 


026156 
026160 


026210 


026216 
026224 


020105 
047125 


020122 
000124 


051105 


000124 


045522 
052111 
051440 
051117 
042522 


045522 
047110 


041505 
020122 
052047 
046522 


041505 


043516 
042111 


042523 
054105 


051122 


051124 


051117 
042522 


020122 


042522 


051105 
020054 
042505 
042040 
042523 


051503 
042107 
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041455 
044504 
044440 
052116 


041455 


041505 


026522 


000124 
042520 


050125 


020114 
044504 
051440 
052106 
042505 
042040 
042523 


051117 


042523 
041040 


000124 


041440 
040440 
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EM36: 


EM37: 


EM4O: 


EM41: 


EM43: 


EM44: 


EMSS: 


EM46: 


EM47: 


~ASCI2Z 


-ASCI2Z 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


~ASCIZ 


-ASCIZ 


-ASCIZ 
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/SEC-CNTR DION'T INCRMNT/ 


/SEC-COUNTR INCRMENTED WRONG/ 


/DION'T GET SC=SA FOR THIS SECTR/ 


“EROR-R/W/S RDY SHOULD BE SET”’ 


/UNEXPECTED RK11 INTERRUPT/ 


/CNTRL RDY DIDN'T SET AFTER SEEK OR DR RESET/ 


/FERR OR HE BIT SET ON SEEK OR DR RESET/ 


/RKER BIT, ON SEEK OR DR RESET/ 


/RKCS CHNGD AFTR FUNCTION WAS DONE/ 


SEQ 0134 


—_—= = 


MD~11-CZRKKF, RK11 BASIC LOGIC 


CZRKKF 


-P11 


026232 


026254 
026260 
026266 
026274 
026302 


026307 


026360 
026362 


026404 
026407 


026444 


026452 
026460 


026540 
026544 


052106 


047117 
027522 
042122 


047104 
042514 


000124 
045522 


020123 


047103 
042122 


051505 
042510 
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020122 


027527 
020131 
052047 
051101 


053457 


054504 


042522 


040504 


042523 


051124 
020131 


000076 
047440 


TEST 2 


052506 
047117 
042040 


020123 
044504 
041440 

000 


051457 


042523 


041440 
040440 
042523 


046122 


000124 


020114 


051104 


020122 
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EMSO: 


EMS1: 


EMS2: 


EM53: 


EMS4: 


EM55: 


-ASCIZ 


~ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


ASCIZ 


“R/W/S RDY DIDN'T CLEAR" 


“"R/W/S RDY DIDN'T SET AFTR SEEK OR DR RESET" 


/RKDA CHNGD AFTR SEEK/ 


/CNTRL RDY DIDN'T CLR AS GO WAS SET/ 


“CNTRL RDY DIDN'T SET ON WRT/FMT STARTING FROM <DSK-ADRES>"’ 


“HE OR ERR ON WRT/FMT STARTING FROM <DSK-ADRES>"’ 


037123 


042113 EM56: -ASCIZ /RKDA INCRMNTD WRONG ON WRI-FMT/ 


026630 
0 


026524 946506 
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CZRKKF P11 


7470 
7471 
7472 
7473 
7474 
7475 


026660 


026662 
026670 
026676 
026704 
026712 


026720 
026726 
026734 
026742 
026750 
026756 


026757 
026764 
027006 


027014 
027022 


000124 


045522 
042111 
053117 
047440 
020124 


045522 


020122 


045522 
047522 
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041527 
023516 
043122 
020116 
046506 


040502 
046522 
051127 
047117 
043040 


042513 


042122 
046506 


041104 
000122 


TEST 2 


042040 
020124 
047514 
051127 
000124 


044440 
052116 
047117 
053440 
052115 


020122 
047117 
047440 
047440 
000124 


042440 
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EMS7: -ASCIZ /RKWC DIDN'T OVRFLO ON WRT FMT/ 


EM60: -ASCIZ /RKBA INCRMNTD WRONG ON WRT FMT/ 


EM61: -ASCIZ /RKER SET,ON WRT OR RD OR FMT/ 


EM62: ~-ASCIZ /RKOB EROR/ 


SEQ 0136 





MO-11-CZRKKF, RK11 BASIC LOGIC TEST 2 
CZRKKF .P11 


027026 


027064 
027072 
027100 
027106 
027114 
027122 
027130 


027135 


027200 
027201 


027236 


027240 
027246 


027253 


027340 
027344 


027416 
027422 


027444 


21-FEB-78 0 


045522 
041516 


020104 
045522 
042111 
053117 
047440 
047440 
043040 


000047 


040504 
051122 


051505 
042510 


045525 
051505 


051127 


045522 


040504 


046506 


041527 
023516 
043122 
020116 
020122 
052115 


041113 
051103 
053440 
047440 


047440 
043040 


041516 


052103 
040524 
051117 
052116 


000076 
047440 


000076 


047117 
053111 
044440 
051504 


044440 


000124 
042040 


020101 
047115 
047522 
020116 
020122 
052115 


051117 
044040 
020122 
023440 
051117 


042440 
000 


046122 


051104 


020122 
047117 
046506 
051101 
043040 
042074 
051104 


020107 


040440 
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EM63: 


EM64: 


EM65: 


EM66: 


EM67: 


EM70: 


EM71: 


EM72: 


-ASCIZ 


~ASCIZ 


ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCI2 


~ASCIZ 


~ASCIZ 


/RKDA INCRMNTD WRONG ON RD OR RD FMT/ 


/RKWC DIDN'T OVRFLO ON RD OR RD FMT/ 


/RKBA INCRMNTD WRONG ON RD OR RD FMT/ 


/INCORRECT HEADER FROM ‘SECTOR‘/ 


/DATA ERROR/ 


“CNTRL RDY DIDN'T SET ON RD/FMT STARTING FROM <DSK-ADRES>" 


"HE OR ERR ON RD/FMT STARTING FROM <DSK~ADRES>"’ 


/WRONG DRIVE ID IN RKDS AFTER SEEK/ 





MD-11-C 
ZRKKF .P11 


C 


ZRKKF, 
p 


027452 
027460 


027464 


027602 
027606 


027652 
027656 


027714 
027721 


027750 


027756 


030000 
030001 


030036 
030043 


030064 


052106 
042505 


051110 


020105 
051110 


047123 
051104 


046117 
041523 


047504 


122 
044103 
040440 
042040 
042522 


040504 
047522 


6 
045510 
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051105 
000113 


053504 
046117 


046103 
053504 


000124 
053111 


000114 
020120 


042516 


042113 
047101 
052106 
044522 
042523 


040524 


020122 
051117 


052116 


045510 
051122 


TEST 2 


051440 


042522 
026514 


000122 
042522 


051120 


021440 


050040 


044504 


020101 
042107 
051105 
020126 
000124 


042440 
052101 
021504 


046122 


047440 
047440 
041440 
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EM73: 


EM74: 


EM75: 


EM76: 


EM77: 


EM100: 


EM101: 


EM102: 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


/HRDWRE POLL-DRV ID BITS(13-15) SHLDBE CLR/ 


/HRDWRE POLL-INTRUPTING DRIV # NOT PRSNT/ 


/DRIV # DIDN'T INTRUPT AFTER HRDWRE POLL/ 


/SCP DIDN'T SET AFTER SEEK WAS DONE/ 


/RKDA CHANGD AFTER DRIV RESET/ 


/DATA EROR AT WORD#/ 


/CNTRL RDY DIDN'T SET AFTER RD CHK/ 


JERR OR HE ON RD CHK/ 


SEQ 0138 





MD~11-CZRKKF, RK11 BASIC LOGIC 


CZRKKF 


-P11 


030074 
030102 


030105 


030150 
030156 


030206 
030214 


030244 
030245 
030252 
030260 
030266 
030274 
030302 


030306 
030314 


030344 
030351 


030372 
030376 
030404 
030412 


030417 
030424 


030454 
030456 


103 
020116 
045510 


122 
044504 
047440 
047514 
042122 
047440 
020124 


045522 
041516 
020104 
020107 
020104 


045522 
040510 
043101 
042122 

000 


115 
020131 
041440 
042105 
051105 
044103 


047103 


044103 
051127 


044103 
051105 


000113 
045522 
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042523 
042122 
000 


053513 


020122 
044103 


040504 


044103 
040502 
043516 


042524 
041440 


046505 
047527 
040510 
040440 
051040 
000113 


051124 


045510 
020105 


000113 
052111 
041505 
051117 


042113 


020124 


040502 


TEST 2 


047440 
041440 


020103 


0001135 


044440 
052116 
047117 
051040 
000113 


041440 
020104 
020122 
045510 


051117 
042122 
043516 
052106 
020104 


020114 
044504 
051440 
052106 
052122 

000 


051117 
047440 
020124 


020105 
020113 
000 


020101 


0441035 


044440 
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EM103: 


EM104: 


EM105: 


EM106: 


EM107: 


EM110: 


EM111: 


EM112: 


EM113: 


EM114: 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


~ASCIZ 


~ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


~ASCIZ 


/CSE ON RD CHK/ 


/RKWC DION'T OVERFLO ON RD CHK OR WRT CHK/ 


/RKDA INCRMNTD WRONG ON RD CHK/ 


/RKBA CHANGD AFTER RD CHK/ 


¥ 


/MEMORY WORD CHANGED AFTER RD CHK/ 


/CNTRL RDY DIDN'T SET AFTER WRT CHK/ 


/HE OR ERR ON WRT CHK/ 


/WRITE CHECK EROR/ 


/RKDA INCRMNTD WRONG ON WRT CHK/ 


/RKBA INCRMNTD WRONG ON WRT CHK/ 





MD-11-C 
CZRKKF. 


ZRKKF, 

P11 
030464 
030472 
030500 
030506 
030514 


030515 


030544 
030551 


030670 
030671 


030742 
030744 


030774 
031002 


031046 
031051 


031072 


041516 


000124 
045522 


000104 
041523 


042514 
045522 


042105 


103 
051040 
042040 
020124 
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046522 
051127 
047117 
041440 


041113 


052105 
047522 


020101 


030461 


051440 


030513 


040511 


020120 


042524 
030461 


052116 
051505 
042111 
046103 


TEST 2 


052116 
047117 
053440 
045510 


020101 


042523 


042040 


052105 


020061 


042524 


042523 


000104 
042040 


041440 
052105 


046122 


040505 
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—EM115: 


EM116: 


EM117: 


EM120: 


EM121: 


EM122: 


EM123: 


~ASCIZ 


-ASCIZ 


~ASCIZ 


-ASCIZ 


-ASCIZ 


ASTIZ 


~ASCIZ 


/RKBA INCRMNTD, WITH IBA SET/ 


/WRONG MEMORY LOCATION CHANGED WITH IBA SET/ 


/RK11 DIDN'T INTRUPT WHEN IDE WAS SET/ 


/RK11 DIDN'T INTRUPT AFTER SK WAS INITIATED/ 


/SCP SET BEFORE SEEK COMPLETED/ 


/RK11 DIDN'T INTRUPT AFTER SK COMPLETED/ 


/CNTRL RESET DIDN'T CLEAR ‘SCP'/ 


SEQ 0140 
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CZRKKF. 


P11 


031210 
031211 


031246 
031252 


031310 
031314 


031344 
031351 
031356 
031364 
031372 


031376 
031404 


031410 


031432 
031433 


031470 


020122 
000047 
045522 
042111 
047111 
020124 
020122 
047117 


047103 


042526 
045522 


042526 
042447 


045522 

110 
042440 
042111 
042523 


045522 
047522 


054116 


047522 
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951447 


030461 
023516 
051124 
043101 
042122 
000105 


051124 


051511 


030513 


000114 
030461 


000114 
051122 


051105 


020105 
051122 
023516 
000124 


051105 
000122 


020103 
044504 
051440 


030513 


000122 


TEST 2 


050103 


042040 
020124 
050125 
042524 
042040 


020114 


051124 


020061 


042514 


044440 


042514 


041040 
044504 
051440 
020116 

000 


051117 


042040 
020124 


042440 


044502 
047104 
052105 


042440 
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ERROR MESSAGES 


M124: 


EM125: 


EM126: 


EM127: 


EM130: 


EM131: 


EM132: 


EM133: 


EM134: 


~ASCIZ 


-ASCI2Z 


»ASCIZ 


~ASCIZ 


~ASCIZ 


ASCIZ 


-ASCIZ 


eASCIZ 


-ASCIZ 


/RK11 DIDN'T INTRUPT AFTER RD DONE/ 


/CNTRL RESET DIDN'T CLR REGISTR/ 


/RK11 DION'T INTRUPT AT CPU LEVEL/ 


/RK11 INTRUPTED AT WRONG CPU LEVEL/ 


/*ERR BIT’ DIDN'T SET IN RKER/ 


/HE OR ERR DIDN'T SET/ 


/RKER EROR/ 


/NXC BIT DIDN'T SET/ 


/RK11 DIDN'T INTRUPT ON SOFT EROR/ 


SEQ 0141 





MD~-11-CZRKKF, RK11 a ny he TEST 2 


CZRKKF 


P11 


031524 
031531 
031536 
031544 


031547 
031554 


031604 
031612 


031616 


031720 


031724 


031732 
031740 


031742 
031750 


031756 


031762 
031770 


031774 
032002 
032010 


21-FEB-78 


042515 
051524 
046522 
051127 
045522 

127 
052117 
051101 


052124 
042047 


043065 


031724 


001116 


001116 
000000 


001116 
001166 


001116 


001116 
001166 


001116 
001166 
001174 


020130 


051503 
051520 
041440 

000 


052101 


000131 
044522 


001162 
001162 
001162 
001170 
000000 


001162 
000000 


001162 
001170 
001176 


044502 
041516 
020104 
026507 

000 


047040 
042514 


020101 
047440 
047101 
043040 
044504 
020117 


020126 
042522 


030055 


000000 
001164 


001164 
000000 


001164 


001164 
001172 
001200 


M11 
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ERROR MESSAGES 


EM135: 


EM137: 


EM140: 


EM141: 


EM142: 


DT1: 
DT2: 


DT20: 


DT21: 
DT26: 


D154: 


-ASCIZ 


-ASCIZ 


~ASCIZ 


-ASCIZ 


~ASCIZ 


-EVEN 
~ SBTTL 
. WORD 
. WORD 


. WORD 


. WORD 
. WORD 


. WORD 


/MEX BITS INCRMNTD WRONG-RKCS/ 


/WPS NOT CLEAR/ 


/DATA EROR ON TRANSFER FROM DISK TO TTY/ 


/*DRIV #* PRESENT, BUT NOT INDICATED/ 


/ NWO BUSY ON OTHER HALF OF RK~-O5F/ 


ERROR DATA POINTERS 
SERRPC ,SREGO,0 
SERRPC ,SREGO, SREG1,0 


SERRPC,SREGO,$REG1,$REG2.$REG3.0 ° 


SERRPC,O . 
SERRPC,SREGO,$REG1,$REG2,0 


SERRPC,SREGO.S$REG1, SREG2,$REG5,$REG4, SREGS,SREG6,SREG7,0 


SEQ 0142 


N11 
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MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2 
-P11 ERROR DATA POINTERS 


11 
CZRKKF 21-FEB-78 08:51 


7830 032016 000000 
7831 


SEQ 0143 


032020 


032042 


032047 
032054 
032062 
032070 


032075 
032102 
032110 


032113 


032142 
032150 


032155 
032162 
032170 
032176 
032204 
032212 


032213 
032220 
032226 


032231 
032236 
032244 


032251 


032300 
032301 
032306 


032314 
032322 


032327 


020040 


041505 


040 
020040 
052103 
041505 


040 
020040 
042126 


040 
020040 
020123 
042513 
051040 


020040 


040 
020040 
051503 
045522 
020040 

000 


040 
020040 
051504 

040 
020040 
047103 


045522 
040 


041520 


042126 


050040 
042440 
020040 
042126 


050040 
051040 
000 


050040 
051040 
020040 
020122 
053513 


041520 
050040 
020040 
020040 


051105 
045522 


050040 
020040 
000 


050040 
042525 
051124 


050040 
041455 


050040 


051504 
050040 


020040 


020103 
050130 
051040 

000 


020103 
041505 


020103 
041513 
051040 
020040 
000103 


000 
020103 
045522 
020040 


020040 
051504 


020103 
045522 


020103 
026503 

000 
020103 
052116 


020103 
041505 


020103 


DH2: 


DH4: 


DHS: 


DH14: 


DH21: 
DH30: 


DH34: 


DH35: 


DH36: 


DH40: 


DH44: 


. SBTTL 
-ASCIZ 


-ASCIZ 


~ASCIZ 


-ASCIZ 


eASCIZ 
~ASCIZ 


~ASCIZ 


»ASCIZ 


-ASCIZ 


-ASCIZ 


eASCIZ 


ERROR HEADERS 


i wm 


f- Pt 


, PC 


}. 1% 


REGADD RECVD/ 


EXPCT  RECVD/ 


RECVD/ 


RKCS RKER RKWC/ 


RKCS RKER RKDS/ 


RKDS/ 


SEC-CNTR/ 


PRSNT NXT-CNT/ 


SECTOR RKDS/ 


RKCS RKER RKDS RKDA/ 


b 





MD-11-CZRKKF, RK11 BASIC LOGIC 
CZRKKF P11 


032372 
032374 


032476 
072503 


032604 
032610 


032632 
032634 


032664 
032672 


032730 
032732 
032740 
032746 


032753 


020040 
0 


000101 
020040 
020040 


020122 
042525 


020040 


000101 
020040 


042522 
020040 


000123 
020040 
020040 
053111 


040 


21-FEB-78 08:51 


051040 
0 0 


051040 


041520 


041505 


041520 
041520 
020043 
020114 
052523 
051440 
042522 
051104 
054503 
020040 
020040 
000103 


041520 
045522 
051040 


041520 
042523 
020040 
020124 
053103 


041520 


040455 


041520 
020040 
021440 


050040 


TEST 2 


041513 


042113 


020040 
051503 
045522 
020040 
020040 
040504 
053122 
041456 
051504 
051522 
027122 

000 


020040 


020040 


020040 
041527 
042113 


020040 
052103 
054105 
020040 
000104 


020040 


051104 


020040 
051104 
000 


020103 
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DH54: 


DH56: 


DH64: 


DH66: 


DH67: 


DH74: 


DH100: 


-ASCIZ 


eASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


»ASCIZ 


, wr 


/ PC EXPC: DR# 


. % 


ae a * 


x ot 


, 


c wr 


RKCS 


RKWC 


SECTR 


EXPCT 


RKER 


CYL 


RKDA/ 


EXPCT 


RKDS 


SUR 


RECVD/ 


RKDA 


SEC RECV: DR# 


RECVD DSK-ADRS/ 


DRIV #/ 


WORD # 


EXPCT 


RECVD/ 


CYL 


SUR 


SEG 0144 


DRV#....CYL.<DSK-ADRS>. SUR. .SEC/ 


SEC/ 


MD~11-CZRKKF, RK11 BASIC LOGIC 
CZRKKF .P11 


032760 


033010 
053016 


033024 
033032 
033040 
033046 


033050 
033056 


033064 
033072 
033100 


033106 
033114 


033122 


033144 
033150 


033230 
033235 


033272 
033273 


033336 


053440 
CG 


042522 


020040 
051040 


042522 


020040 
051040 
920040 


041513 
020040 


0 
051503 


033342 


21-FEB-78 08:51 


051117 


053103 


041520 
042513 


041520 


0415065 
051040 


041520 


053103 


041520 
041513 


041520 


000123 
041520 


041040 


050040 


051105 


050040 
020040 
020040 
051105 
045522 


050040¢ 


TEST 2 


020104 


000104 


020040 
000122 


020040 


042126 
041513 


020040 


000104 


020040 
000123 


020040 


042526 
051040 


020040 
041513 


052111 
020103 
020103 
045522 
020040 


020040 
040504 


020103 


045522 
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ERROR HEADERS 


DH103: 


DH104: 


DH107: 


DH117: 


DH126: 


DH130: 


DH131: 


DH133: 


DH140: 


-ASCIZ 


-ASCIZ 


~ASCIZ 


-ASCIZ 


eASCIZ 


-ASCIZ 


~ASCIZ 


-ASCTIZ 


~ASCIZ 


EVEN 


PC 


PC 


PC 


PC 


PC 


PC 


PC 


PC 


PC 


RKER/ 


RECVD 


LOC 


RKCS/ 


LEVEL 


RKCS 


RKCS 


RKCS 


EXPCT 


RKCS/ 


EXPCT RECVD/ 


RKCS/ 


RKER ERR BIT/ 


RKER/ 


RKER RKDA/ 


RECVD RKBA RKCS/ 


SEQ 0145 


D 12 
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CZRKKF .P11 21-FEB-78 08:51 ERROR HEADERS SEQ 0146 


bn ;DATA BUFFER 

8000 033342 000400 OUTBUF: .BLKW 256. sTHIS 256 WORD BUFFER IS FOR 
8001 ;DATA TRANSFERS FROM AND 
8002 :TO THE DISK. 


8004 000001 . END 





MD~11-CZRKKF, 


CZRKKF .P11 
BADINT 004600 
BADTMO 004534 
BDAR 021074 
BDAO 021056 
BDAS 021066 
BITO )}§6= 000001 
81TOO = 000001 
1T01 = 00000 
IT02 = 0000 
1T03 = 000010 
1794 = 000020 
1T05 = 000040 
1T06 = 000100 
1T07 = 000200 
1T08 = 000400 
BITO9 = 001000 
31T1 = 000002 
31T10 = 002000 
1T11 = 004000 
IT12 = 010000 
1713 = 020000 
1714 = 040000 
IT15 = 100000 
BIT2 = 000004 
3173 = 000010 
3174 = 000020 
31TS = 000040 
3176 = 000100 
BI1T7 = 000200 
31T8 = 000400 
BIT9 = 001000 
BPTVEC= 000014 
RKDAO= 104415 
RKDA4= 104416 
BTEOP 020026 
HE1 021242 
HKCCL 021402 
CHKCRD= 104412 
CHKDA 021262 
CHKDA1 021270 
WKECL 021356 
CHKER 021342 
CHKHE 021234 
HKHE1T 021226 
CHKWC 3 3=.021316 
CH.CRD 021760 
KSWR = 104407 
NT.RD= 104414 
CNT.RE= 104413 
N.RDY 022032 
N.RST 022014 


RK BASIC LOGIC TEST 2 
08:51 


21364 
2106 


6678 


MACY11 30A(1052) 
CROSS REFERENCE TABLE -- USER SYMBOLS 


E 12 
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4643 4688 4707 4718 4798 4806 
21174 5657 5661 


2006 2010 2270 5904 


6625 
6633 


2006 2010 6720 6722 


3032 3160 3249 3370 3538 3670 


3925 4334 4428 5243 5410 5470 
3045 4206 62828 

3395 3559 62848 

5120 5199 5286 5360 5426 63294 
3059 3295 4210 4808 63164 

3039 3256 4187 4527 62644 

3552 3687 3833 62618 

3049 3278 3726 4202 819 63024 
6695 7206# 

4043 4092 5021 5321 6393 72148 
2394 2446 2531 2566 2598 656 


4895 


3700 


5606 


4904 


3819 


5759 


5548 

4179 4265 
72108 

2895 2996 
4234 4308 
5070 5110 
5587 5667 


SEQ 0147 


4523 
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CZRKKF P11 21-FEB-78 08:5 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0148 

COUNT 001362 1135@ 8 3410* 3414* 3520* 35335* 4516* 4519% 5221* 5264« 

COUNT! 001564 11364 6390*  6405* 

CR = 000015 9084 6842 6852 

CRETRN 021430 6266 6285 6303 6317 6330 6341 63464 

CRLF = 000200 9094 1884 6813 6852 

DDISP = 177570 9154 1057 1855 

DDPCH 001410 11564 1885 1905 1912* 1914 1916* 1920 1929 1941 2197 2199 2275 2284 

DELAY = 104417 2342 5155 5166 5584 72204 

DELA.Y 021664 64564 7220 

DH100 32753 1565 1663 79414 

DH103 =©033010 1586 7947# 

DH104 «= 033024 1593 79504 

DH1G07 033050 1614 79554 

DH117 =—6.03.3106 1551 1670 1677 1684 1698 1705 79614 

DH126 = 033122 1719 1726 79644 

DH130 8 =©033150 1733 79698 

DH131 033207 1741 1762 79764 

DH135 §=—6035235 1755 79818 

DH14 032113 1248 1776 78514 

DH140 =: 0332735 1790 79884 

DH2 032020 1712 78378 

DH21 932150 1346 78578 

DH30 032155 1269 1276 1367 1381 1402 1452 1579 1628 1655 1691 78598 

DH34 032213 1262 1283 1297 1332 1530 78664 

DH35 032231 1304 78704 

DH36 032251 1311 78744 

DH4 032047 1255 1318 1339 1374 1395 1445 1459 1482 1523 1558 1600 1607 1642 
1649 1656 1748 1769 1805 78428 

DH40 032501 1325 78804 

DH44 032327 1241 1290 1353 1360 1388 1572 1621 1783 78854 

DHS 032075 1438. 78478 

DH54 032374 1410 1420 1504 1514 7893# 

DH56 032503 1429 1466 79064 

DH64 032610 1475 79194 

DH66 032634 1489 79244 

DH67 032672 1496 79304 

DH74 032732 1537 1544 1798 79378 

DISPLA 001142 1057# 1855* 1863* 6654* 6675+ 

DISPRE 000174 10154 1863 

DRESET 021504 2734 4674 4991 5818 6390# 6428 7273 7291 

DRHOLD 025302 7276* 7285 7290 72948 

DRIVAD 001350 11274 = =62104* = =2272* = 2277 2289 2321 2367 2404 2416 2456 2541 2567 2610 
2669 2738 2818 2833 2913 2929 3015 3031 3068 3123 3236 3248 3262 
3332 3505 3620 3784 3920 4015 4161 4178 4254 4264 4326 4356 4419 
4454 4511 4522 4549 4673 4727 4730 4749 4785 62 4939 5017 5086 
5222 5316 5407 5465 5530 5599 5681 757 5823* 6264 6282 6360 6391 
6425 6716 6725 7276 7277 7279* 7281* 7282 7290" 7295* 7307* 

DRIVS 001412 ioaee 1959 1996* 2011* 2047* 2068* 2077 2097 2237* 2265 5820 5862 6711" 

® 

DRIVO 001414 1170# 1973 2050 2101 2194 2232 2234 2297 5851 5891 6719 7296 

DRIV1 001416 11714 

DRIV2 001420 11728 


DRIV6 §=0014350 


MD-11-CZRKKF, RK11 wt 


CZRKKF P11 

DRIV? 001432 
DRVDON 001352 
DRVPTR 001354 
DSWR 177570 
DT1 031724 
DT2 031732 
DT20 031742 
DT21 031756 
DT 26 031762 
DT54 031774 
EFLG? 001370 
EMTVEC= 000030 
"100 27756 
M101 030001 
M102 030043 
M103 030067 
M104 030105 
M105 030156 
M106 030214 
M107 030245 
M11 025370 
M110 030306 
M111 030351 
M112 030376 
M113 030417 
M114 030456 
M115 030515 
M116 030551 
M117 030624 
Mi2 025402 
M120 030671 
M121 030744 
M122 031002 
M125 9031051 
M124 031110 
M125 = 031152 
M1260 = 031211 
M127 8 =©031252 
M13 025415 
M130 8 031314 
M131) 4 =031351 
M132 031376 
M133 031410 
M134 031433 
M135 031474 
M137 = 031531 
M140 89031547 
M141 031616 
M142 «031662 
M16 025427 
M21 025456 
30 025470 


LOGIC TEST 2 
08:51 
11774 5859 
11284 2102* 
11314 2101* 
9148 1056 
1263 1284 
1699 1706 
1256 1312 
1559 1594 
1770 1806 
1242 1291 
1347 78224 
1249 1270 
1636 1664 
1412 142 
11384 3408 
10034 1839 
1564 75904 
1571 75954 
1578 76024 
1585 76074 
1592 76114 
1599 76194 
1606 76254 
1613 76314 
1804 73164 
1620 1775 
1627 76454 
1634 76504 
1641 76544 
1648 76614 
1655 76684 
1662 76744 
1669 76834 
1240 73204 
1676 76914 
1683 77004 
1690 77064 
1697 77148 
1704 77218 
1711 77284 
1718 77354 
1725 77428 
1338 73234 
1732 77498 
1740 77554 
1747 77604 
1754 77634 
1761 7768# 
1768 77754 
1782 77814 
1789 77854 
1797 77934 
1809 77998 
1254 73264 
1261 73318 
1268 73348 


76384 


6714 
1333 


1506 
3633* 
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CROSS REFERENCE TABLE -- USER SYMBOLS 


1545 


1446 
1713 


1784 


1490 


1552 


1460 
1720 


1791 
1497 


1587 


1476 
1727 


78198 
1566 


1671 


1483 
1742 


1580 


1678 


1524 
1749 


1615 





SEQ 0149 


1685 


1531 
1765 


1629 
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CZRKKF .P11 
EM31 025500 
EM32 025510 
EM33 025531 
M34 025551 
M35 025570 
M36 025623 
M37 025653 
EM4O 025707 
m4) 025747 
M43 026004 
EM44 026036 
M45 026112 
M46 026160 
M47 026216 
m50 026260 
M51 026307 
m52 026362 
M53 026407 
M54 026452 
mS5 026544 
M56 026623 
M57 026662 
M60 026720 
M61 026757 
M62 027014 
M65 027026 
M64 027072 
M65 027135 
EM66 027201 
M67 027240 
M70 027253 
M71 027344 
M72 027422 
M73 027464 
M74 027536 
M75 027606 
M76 027656 
M77 27721 
RRVEC= 000004 
FCHECK 9025160 
FLAG 001404 
TITLE 001346 
NS = eeeeee 
TSWR = 104406 
T2RG 021010 
T3RG 021002 
GT4RG 020774 
T = 000011 
INDX1 001356 | 


73834 


75268 


1864* 
5799 


3518* 
6029* 


1893* 


3737+ 


CROSS REFERENCE TABLE -- USER SYMBOLS 


1901* 


1966 
7202 


3743* 


3804* 


6617* 


2122 
7206 
5170 
3681 
2687 
3945 


3814* 


6619* 


2147 
7207 
5186 
3829 
2696 
4068 


3898+ 


6622* 


2301 
7208 
5251 
4167 
2832 
4074 


3977 


6151 
7210 
5272 
4332 
2928 
4177 


3982+ 


SEG 0150 


6435 
7212 
5331 
4341 
3030 
4265 


5765* 
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CZRKKF P11 21-FEB-78 08:51 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0151 
INDX2 001360 11344 24665* 2469* 3652* 3664* 5781* 5872+ 5954 5975* 
IOTVEC= 000020 10014  1837* 1838+ 
LF = 000012 907# 6846 6852 

$G1 001216 10844 2045 

SG2 001236 10884 2080 

$G3 001245 10914 6570 

$64 001272 10964 2288 6724 

$G5 001303 10994 6710 

$G6 01315 11024 6728 

DRV 005040 22504 5824 
DDDEVN 001406 1153#@ 5861* 5910 5913 6055* 6056 
DUTBUF 0335342 2788 2813 2855 2857 2909 2951 2953 3011 3053 3055 3141* 3146 3237 


4462 4464 4503 4789 4829 4831 4943 5319 5392 5402* 5406 5461* 5467 


PFSTRT 004702 21744 7264 

PHYDRV 001436 1180# 5850* 5854* 5981 6012 

PIRQ = 177772 9138 

PIRQVE= 000240 10074 

PRO =F: =-—« 000000 9304 

PR1 == 000040 9314 

PR2 == 000100 932e 

PRS = =_:« 000140 9334 

PR4 = =_-—« 000200 9344 

PRS =: =_—« 000240 9354 

PR6 = =_:« 000300 9368 

PR? = 000340 9378 

»S = 177776 9104 911 1894 

PSW = (177776 9114 

PWRVEC= 000024 10028 1843* 1844* 7231* 7232 7241* 7247* 7259% 7260+ 
ROCHR = 104410 7113 72078 

RDLIN = 104411 1968 72084 

RESVEC= 000010 9974 

RKBA 001336 11164 2815 2908 3010 3146* 3238* 3272 3275 3358* 3525* 3653* 3805* 3964+ 


RKCS 001332 1114# 2327* 2608 2668 2741% 2814 2907 3008 3120 3152 3233 3240* 3242 


RKDA 001340 1117# = 1818* 2042 2051* 2052 2201* 2321* 2367* soe 2416* 2456* 2544* 2567* 


RKDB 001342 11184 3084 3087 3099 3101 3102 3181 3186 3462 3464 3465 3854 3857 
RKDS 001326 11124 1820 2041 2063 2202 2320 2345 2368 2377 2380 2405 2418 2422 
2457 2505 2542 2569 2619 2630 2679 2685 2740 3545 3679 3827 3901 
orhe ‘Sas 4540 4725 4750 4752 5157 5965 5983 6131 6362 6366 6399 
RKER 001330 11134 2699 3902 4344 4346 4438 4961 5016 5098 5168 5249 5328 5339 


aKPRI =. 007400 11448 1897* 4865 5945 6487 


MD~11-CZRKKF, RK11 BASIC LOGIC TEST 2 


CZRKKF .P11 
RKVEC 001402 
RkKwC 001334 
SEEKO 001372 
SEEK1 001374 
SEEK2 001376 
SHFTRT 021200 
SIMUL 001344 
SIZEF 025304 
SIZYET 001440 
STACK = 001100 
START 002636 
STARTA 002704 
START) 003334 
STKLST= 177774 
ST2 003736 
S13 004262 
ST4 004456 
SWR 001140 
SWREG 000176 
swO = 000001 
SWwOO = 000001 
SWwO1 = 000002 
SWwO2 = 00000 
SwO3 = 000010 
SWwO4 = 000020 
WO5 = 00004 
SWwO6 = 000100 
WO7 = 000200 
wO8 = 000400 
SwO9 = 001000 
Swi = 000002 
W10 = 002000 
Wi? = 004000 
SW12 = 010000 
SW135 = 020000 
W14 = 040000 
SW15 = 100000 
SW2 = 000004 
SWw3 == 000010 
SW4 = 000020 
SW5 = 000040 
SW6 = 000100 
SW7 = 000200 
SW8 = 000400 
SW9 = 001000 
BITVE= 000014 
IMER 001366 
TKVEC = 000060 
TPVEC = 000064 
RAPVE= 000034 
RTVEC= 000014 


6361* 


1841* 


6699 


6567 


6364* 


1842* 


4631* 


6686 


6456* 


20964 
1862* 
6640 » 


7022 


6459* 


62284 
3622 


6096 
1876 
6678 


6484+ 


4688+ 


5755* 


6717 
3732 


2028 
6686 


6490* 
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4697* 


3526* 
4787* 
6302 


6726 
3785 


2138 
6692 


6522* 


4707* 


3655* 
4942+ 
6305 


3866 


2152 
6696 


6525* 


4718+ 


3807* 
4955 


4000 


2157 
6699 


4790 


3965* 
5084 


6187 
7009 


4798+ 


4019* 
5093 


6431 
7046* 


SEQ 0152 


4806* 


4085* 
5318* 


6567 
7239 


MD~11-CZRKKF, RK11 wg) a pe the TEST 2 


CZRKKF .P11 
TSTEND 020626 
TSTRWS 021436 
TSTSIN 021572 
TST.Si= 104421 
TST1 004706 
TSTIQ 005742 
TST11 006030 
TST12 006110 
TST13 006252 
TST14 006416 
TST1S5 006510 
TST16 006746 
TST17 =—©.007174 
TST2 005040 
TST20 007504 
TST21 007702 
TST22 010154 
ST25 010524 
TST24 011004 
ST25 011414 
TST26 §=011722 
ST27 3=— 012242 
TST3 005236 
TST30 8 ©=©012530 
TST31 012764 
TST32 0135170 
TST35 «= 0134356 
TST34 §©013720 
TST35 «014176 
TST36 «=—6014330 
ST37 =—014654 
TST4 005350 
TST4Q0 §=©015070 
TST41 8015274 
S742 §=6015456 
TST45 §©015564 
TST44 015740 
TST45 016076 
TST46 §=©016504 
TST47 016456 
TST5 005436 
TST50 §©016634 
TST51 §©016762 
STS2. 017134 
$153 017330 
$154 017622 
TST55 § §=©.017760 
TST56 020004 
ST57 020054 
ST6 005464 
ST? 005522 
TYERM 021026 
TYPDS = 104405 
YPE = 104401 


60554 
5128 


24154 
24454 
[cite 


7202 
1924 
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CROSS REFERENCE TABLE -~ USER SYMBOLS 


5207 5236 5256 5585 5752 63604 — 
2786 2905 3006 3138 3231 3355 
4407 4499 4606 4779 4857 4937 
5744 72248 

2508 2515 25304 

37778 

41198 

43074 

4584 45954 

57424 

61484 

1936 1945 1949 1964 1988 2044 


2066 


3648 
5080 


2079 


3802 
5149 


2120 


3916 
5239 


2140 


SEG 0153 


4130 
5390 


2142 









SLPADR 
SLPERR 


104402 


001213 
023524 
0 


001110 


MD~-11-CZRKKF, RK11 BASIC LOGIC TEST 
CZRKKF .P11 0 ity 





6071# 


6631 
6653* 


6685 


6676+ 
6702 


6647* 


7160 
6635* 
3329+ 


6713 


6637 
6658 


6748 


6680 
6704 


6657 


6650+ 
3499* 


5538 


1846 
10734 
10734 


6742 


6658 


7814 


6655 


3616+ 


7222e 


10744 
10748 


6761 


6673* 


7816 


6657 


3779+ 


. -¥é 
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CROSS REFERENCE TABLE -- USER SYMBOLS 


10754 
10754 


6766 


7819 


6698 
3903* 


10764 
10764 


6770 


7822 


4859 


10774 
10774 


6817 


7824 


5224* 


10784 
10784 


6852 


7827 


5582* 


7048 


5748* 


————-—-, 


SEQ 0154 


7140 


6655 


MD~11-CZRKKF, RK11 a Pk OAeSi. TEST 2 


CZRKKF .P11 


SMAIL = 
SMNEW 
SMSWR 
SMXCNT 
SNULL 
NWTST= 


SREG1 


SREG10 


SREG11 
SREG2 


eeeeee | 


000001 


023756 


* 
= 
= 
Me 
© 
« 

Cc 


001162 


001164 


001202 


001204 
001166 


001170 


001172 


001174 
001176 
001200 
020752 


eeteee 


21-FEB-78 


6657 
1876 


6701 
6650 


6805 


7143 


23064 
26 


7160 


M12 
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157 


6560* 


24288 


25258 


SEQ 0155 


2643* 
3285* 
3970* 
4450+ 
4759* 
5721* 
7819 


3067* 
3712* 
4361* 
4885* 
6332* 


4178* 


4380* 
6131* 
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CZRKKF .P11 21-FEB-78 08:51 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0156 
SSAVRE= teense Y 7209 
SSAVR6 025146 7240* 7248  7249% 7250* 72688 
SSCOPE 022140 1837 66094 
SETUP= 000117 Wide 1836 183718391841 184318451846 18481872, 187360736610 
SSTUP = 177777 18144 
SVLAD 022346 620 66494 
SVPC = 000204 10234 1028 
$SWR = 165400 8524 B71 877 —s«B78 879 880 881 882 883 884 1078 1079 1080 
1845 1846 1848 1849 2193 2260 2310 2357 2394 2416 2446 2531 2566 
2598 2656 2722 2776 2894 2996 3120 3220 3329 3498 3615 3778 3895 
3999 4120. 4234S 4308 )~=— 4397S 4489 «Ss 4596) = 4661S 4769 «= 4847 4927, «5004 =: 5070 
5139 5220 5305 5379 5448 5513 5579 5648 5743 5798 5815 5846 6068 
6074 6089 6095 6097 6601 6602 6603 6604 6605 6611 6623 6625 6626 
6629 6630 6631 6638 6639 6640 6651 6654 6657 7265 
SSWRMK= 000000 884 885 6605 6606 6627 | 
STIMES 001206 10784 1845* 2260" 3498  3615* 3778*  3895*  3999%  4661*  5648* 5743" 5798* 5815* 
5846* 6074* 6638 6645 6648 6657 
$TKB 001146 1059" 7002 7013 7030 7084 7090 
$STKS 001144 1058# 5698 5699 5715 5718 7002 7011 7027 + 7051* 7082 7088 
STN = 000060 852# 871 2178 2193 2253 2260# 2306 2310 2341 2353 2357" 2381 2390 
23948 2406 2410 2416 2419 2428 2446 2481 2503 2508 2515 2525 25318 
2554 2562 2566 2579 2588 2598" 2642 2648 2656 2705 2711 2722" 2760 
2776" 2866 2872 2894# 2970 2979 2996 3100 3105 3120# 3200 3220" 3300 
309. -3329H «= 3463. Ss 3470 «= 34984 «3595 «= -3615# §=3733,—S «3749 «Ss 3754 «Ss 3778% «= 3867 S38 86 
3895" 3990 3999" 4001 4160 4111 4120 4215 4222 42348 42746 4294 4301 
43084 4376 4387 43978 4470 4475 4489 4541 4559 4584 4587 4596" 4651 
4661# 4758 4762 4769 4830 4836 48478 4901 4918  4927# 4995  5004# 5060 
5070# 5132 5139" 5163 5212 5220" 5291 5297 53054 5369 53798 5435  5448# 
5489 5503 55134 5569 55798 5637 56484 5659 5717 5732 57438 5791 57988 
5806 58154 5829 SB46s 
STPB. 001152 1061# 6841" 6852 
STPFLG 001157 1065# 6799 6852 
$TPS 001150 1060 6839 6852 
STRAP 024676 1841 71758 
TRAP2 024720 7186" 7197 : 
TRP = 000022 7190# 7199% 7200# 72018 72028 7203# 7204 7205# 7206 72074 72084 7209# 7210 
7211# «=72122—7213#@ = 7214S 7215 = 7216S 7217 = 7218)~=—S—7219H = 7220.2 72218 = 7222S 72238 
7224 7225¢ - 7 
STRPAD 024732 7180 71978 } 
STSTNM 001102 10384 2261 6073* 6600 6627  6649* 6654 6658 6675 
$TTYIN 024620 ino C7123 TSS 79598 
S$TYPBN= tteeee UJ 7203 
TYPDS 023310 6865# 7202 ‘ 
TYPE 023070 6799# 7190 7198 
TYPEC 023240 6820 6827 6834 6839% 6840 7053 
TYPEX 023306 6845 6847 68504 
TYPOC 023560 69514" 7199 
TYPON 023574 6950 6953" 7201 
TYPOS 023534 69464 7200 ! 
XTSTR 022152 66148 
$GET4: 000000 60894 
OFILL 023757 6947* 6951* 6961 6996" 
4OCAT= seeeee 6611 
= 034342 1010# 1014# 1023 1024# 1026 10284 10354 1083 1087# 1824 1834 1848 1849 
18844 1927# 1939 19488 19528 19918 2123# 21488 2620 3193 3440 3569 


2266 


ET A SNA eee 
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CZRKKF P11 2'-FEB-78 08:51 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0157 


4055 46° 4879 5887 5889 5896 5994 6097 610 524 6403 64364 65824 
6657 6658 6691 6697 67808 6852 6919# 7002 715 60 7166 7243 7267 
78104 9978 «80004 


13 
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CZRKKF .P11 21-FEB-78 08:51 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0158 
COMMEN 1# 10084 
ENDCOM 1# 10084 
ERROR 902% 2212 2225 2325 2336 2346 2372 2378 23835 2408 2423 2501 2506 2512 2519 
2558 2577 2581 2614 2627 2633 2638 2645 2674 2684 2688 2697 2702 2708 2735 
2747 2751 824 836 2845 2849 2853 2859 2865 2869 2919 2932 2938 2944 2949 
2955 2959 2967 2973 3021 3034 41 3047 51 3057 3061 3069 3088 3095 3103 


SCAPE 1# 1008# 
ETPRI 1# 10084 
ETSWR 1f 852% 1008 18734 
SAGE 2177# 2180 22534 2255 24108 2412 24278 2430 2524# 2527 2588 25 26484 2650 27118 
2713 27608 2762 2872# 2874 2978# 2981 3105# 3107 32004 32 3308# 3311 34708 3472 
35948 3597 37534 3756 38854 38 3989# 3992 41108 41 42214 4224 4300# 4303 4387# 
4389 4475# 4477 4587# 4589 4651# 46 4762# 476 48364 48 49184 4920 4995# 4997 
50604 0 51328 134 52124 5214 5297# 529 5369# 5371 54354 5437 55024 5505 55684 
5571 5637# 5639 57314 5734 791# 5793 8064 580 8284 5831 
MORETA 10294 1084 
T 1# 10084 
EWTST 1# 1008 2178 2253 2306 53 390 2410 2428 2525 2562 2588 2648 2711 2760 


P 10084 6906 7252 7253 
RIOR? 11984 4608 4645 4743 4824 4897 5561 5662 5899 
PUSH 1# 1008 6865 7233 7239 
EPORT 1# 1008# 


SETPRI 1% 10084 

SETTRA Ah. hag, 7200 7201 7202 7204 7206 7207 7208 7210 7212 7214 7216 7218 7220 

SETUP 1# 1008% 1828 

SKIP 1# 1008% 2341 2381 2406 2419 2481 2503 2508 2515 2554 2579 2642 2705 2866 
2970 3100 3300 3463 3733 3749 3867 4001 4100 4215 4274 4294 4376 4470 4541 
4559 4584 4758 4830 4901 5163 5291 5489 5659 5717 

SLASH 1# 10084 

PACE 10084 

STARS 1# 10084 1021 1031 1083 2178 2253 2258 2306 2308 2353 2355 2390 2392 


D 15 
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CZRKKF .P11 21-FEB-78 08:51 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0159 
7001 7004 7072 7101 7169 7229 7245 

SWRSU 1# 1008 #$=18504 

TRMATRP 71908 

TYPBIN 1# 10084 

TYPDEC 1# 1008 6084 

TYPNAM 1# 852# 1008% 1868 

TYPNUM 1# 10084 

TYPOCS 1# 10084 

TYPOCT 1# 1008 6748 6772 7022 

TYPTXT 1 10084 1923 1936 1945 1949 1964 1987 2120 2145 2299 6148 6433 6571 6579 

SSCMRE 10294 1068 1069 1070 1071 1072 1073 1074 1075 1076 1077 


SSNEWT 1# 10084 2178 2253 2306 23535 2390 2410 2428 2525 2562 2588 2648 2711 276C 
<872 2979 3105 3200 3309 3470 3595 3754 3886 3990 4111 4222 4301 4387 4475 
4587 4651 4762 4836 4918 4995 5060 5132 5212 5297 5369 5435 5503 5569 5637 


SSSET hts 7199 7200 7201 7202 7204 7206 7207 7208 7210 7212 7214 7216 7218 7220 


SSKIP 1# 1008% 2341 2381 2406 2419 2481 2503 2508 2515 2554 2579 2642 2705 2866 
2970 3100 3300 3465 3733 3749 3867 4001 4100 4215 4274 4294 4376 4470 4541 


-EQUAT a 8524 898 
» HEADE if 8528 861 
~KT11 14 

. SETUP 4 852% 1814 
SWRHI 1 8524 87 

- SWRLO 852e 8854 

SACTI 1# 852% 1019 
. SAPTB 14 

» SAPTH 14 

. SAPTY 14 

SASTA A 

. SCATC 14 8524 1008 
SCMTA 14 8524 1029 
. $0B2D 14 

. $0B20 14 

~SDIV 14 

SEOP 14 8524 6062 
- SERRO 14 

SERRT # 8524 6734 
. SMULT 1A 

- SPOWE 14 8524 7227 
. SRAND 4 

. SRDDE 14 8528 

. $RDOC lf 

- SREAD lf 8524 6999 
~ SR2AZ 14 

. SSAVE 14 

. $SB2D hd 

. $SB20 4 

- $SCOP # G52 6595 
- SSIZE #4 

« SSUPR #4 

. STRAP lf 8524 7167 


E 13 
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SEQ 016 


CZRKKF .P11 21~FEB-78 08:51 CROSS REFERENCE TABLE -- MACRO NAMES 
-STYPD 1# 8528 6853 

-STYPE ‘a 8524 6782 

-STYPO 14 8524 6921 

- 840CA 14 

.1170 14 


- ABS. 054342 000 


ERRORS DETECTED: 0 


CZRKKF ,CZRKKF .LST/CRFE/SOL=CZRKKF .SML,CZRKKF P11 
RUN-TIME: 22 31 1 SECONDS 

RUN-TIME RATIO: 392/55=7.0 

CORE USED: 34K (67 PAGES) 


